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Summary of Changes 
for DL/I Version 1.7 
LY1 2-501 6-7 

This version of DL/I provides system changes and functional enhancements such 
as: 

Interactive Utility Generation 

This provides an interactive facility to assist with the generation of utility job 

streams. 

IMF Enhancements 

The Interactive Macro Facility (IMF) has been enhanced to support the DL/I 

Documentation Aid facility. 

Documentation Aid 

This provides an ease-of-use facility to document DL/I definitions that can be 

accessed directly by ISQL. 

IMF Adaptation to ISPF 

The Interactive Mactor Facility (IMF) now runs on the Interactive System 

Productivity Facility (ISPF) program product, 5668-960. 

Variable Length Index Source Segment 

This allows an Index Source Segment of a DL/I secondary index to be variable in 

length. 

Utilities Operational Improvements 

Various modifications have been made to the DL/I utilities to permit tape rewind 
options, omission of partition dump, suppression of informational messages to 
SYSLOG, selectable creation of secondary indexes, automatic open of WORKFIL, 
and change accumulation data base specification. 

HLPI Support qf Boolean Operations 

The Boolean AND and OR operators can now be used with the WHERE clause. 

MPS Restart 

MPS batch environment jobs can be restarted after a failure. This supports the use 

of VSE Checkpoint/Restart with the DL/I Checkpoint. 

Key Feedback 

KEYFEEDBACK and FEEDBACKLEN can be specified with GET commands to 

retrieve the key feedback area form the PCB. 

Online Initialization Messages 

Messages have been added to provide status information during online 
initialization. These messages include information concerning DL/I logging status, 
DL/I version currently being run, and the program isolation status. 
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Summary of Changes 

DL/I Version 1.6 ^ 

LY12-5016-6 \ J 

This version of DL/I provides system changes and functional enhancements such 
as: 

Limited Data Sharing (Read Only) 

This function supports sharing of data bases between DL/I subsystems in one host 
or across hosts. One subsystem with update capability and multiple read-only 
subsystems can execute concurrently. This function does not guarantee data 
consistency for the read-only subsystem. 

MPS Under Interactive Computing and Control Facility (ICCF) 

DL/I MPS allows multiple MPS batch jobs to run in a single VSE partition. 

Boolean Qualification Statements 

Boolean logic qualification decreases the application program logic necessary for f 

complex data retrieval. The user specifies multiple qualification statements to V y' 

perform Boolean logic qualification for each segment. Boolean AND and OR 

operators logically relate the qualification statements. 

ACCESS Macro 

The new ACCESS macro allows the user to specify on one statement all of the 

necessary parameters to define an access point to an HD data base. The ACCESS 

macro automatically generates the definition of any required index data base 

DBDs. 



Selective Unload 

With selective unload, the user can reformat data using Field Level Sensitivity and 
Segment Sensitivity. The user can also add new fields for an application program 
and move a subset of a data base to another location for faster processing. 

Current Position trace Entry Addition 

This function adds two fields (SDBORGN and SDBPTDS) to the current position 
trace entry. These fields specify the data base organization and physical pointers 
for the segment. 

DL/I Trace Print Utility Improvement 

This enhancement provides a means of selecting which trace entries print from a 
file created by DL/I Trace with OUTPUT=CICS. This function reduces the 
amount of output generated by the Trace Print Utility. 

Rewind Option for Reorganization Utilities 

This support adds an option to the HISAM and HD reorganization unload and 

reload utilities to allow the user to not rewind input and output tapes, or to select 

rewind only without having the tapes unloaded. This enables the user to reorganize 

multiple data bases without having to mount a new tape for each data base 

reorganized. 

Separate Index Reorganization 

With this function, the user can now reorganize an index data base separately by 

using the HISAM unload and reload utilities. 



/T 



c 



iv DL/I DOS/VS Logic Manual, Volumel 



Licensed Material — Property of IBM 



C 



C 



Partial Data Base Reorganization Utility 

This utility reorganizes a user-selected range of HID AM or HDAM data base 
records into a designated target area within a data base. This minimizes the time a 
data base is offline for reorganization. 

Run and Buffer Statistics 

This facility reports statistics for certain run and buffer events that are currently 
collected by DL/I, but not formatted or displayed. The data base administrator or 
system programmer uses the statistics in selecting parameters for system tuning. 

Extended Remote PSB 

This support enables CICS/VS applications to process both local and remote DL/I 
data bases within the same CICS/VS logical unit of work. To application 
programs, a concatination of PCBs from local and remote PSBs appear as a single 
PSB containing views of both local and remote data bases. 

Summary of Changes 
DL/I Version 1.5 
LY12-5016-5 

This version of DL/I provides system changes and functional enhancements such 
as: 

Field Level Sensitivity 

This function makes it possible for the user to specify only those fields in the 
physical definition of a given segment that are to be included in his application's 
view of that segment, while remaining insensitive to the other fields in the segment. 

Extended Logical Relationships 

The restriction of only one logical relationship per logical path has been removed. 

The user may now define as many logical relationships as he needs to satisfy his 

requirements. 

Unique Segment Support 

It is possible for the user to specify that only one occurrence of a particular 

segment type is allowed under a particular parent. 

Selective Log Print 

It is possible for the user to selectively print data from the log, using the log print 

utility, by specifying a DBD name, CICS task ID, or relative block number. 
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This manual is to be used with the program listings for DL/I DOS/VS. It discusses 
the internal operation of the DL/I system as an application program under 
DOS/VS. It is intended for use by persons involved in program maintenance and 
by system programmers who are altering the program design. 

DL/I DOS/VS is a data management control system that assists the user in 
creating, accessing, and maintaining large common data bases. In conjunction with 
the Customer Information Control System (CICS/VS), DL/I DOS/VS can be 
used in an online teleprocessing environment. 

Readers of this manual must be thoroughly familar with the use of DOS/VS, and 
of CICS/VS, if DL/I DOS/VS is to be used in the online or multiple partition 
support (MPS) environment. 

Because DL/I DOS/VS is a functional subset of the IBM Information 
Management System/ Virtual Storage (IMS/VS), some specific IMS or OS terms 
are used in this manual. These terms are used to allow easy reference to the 
documentation of the related systems. 

This manual is divided into seven sections. 



V^ 



"Section 1: Introduction:" Summarizes DL/I DOS/VS giving general information 
about the purpose of system control modules, DL/I facility modules, MPS modules, 
and utility modules. 

"Section 2: Method of Operation:" Contains HIPO diagrams that describe the 
DL/I modules. The diagrams include cross-references to labels in the program 
listings. See Data Language /I Disk Operating System /Virtual Storage (DL/I 
DOS/VS) Logic Manual Volume 2 LY24-5215. 
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"Section 3: Program Organization:" This section provides descriptive information 
about the DL/I modules and major routines. 

"Section 4: Directory:" Lists DL/I module, entry point, and control section names 
with cross-references to Section 2: Method of Operation. 

"Section 5: Data Areas:" Describes the data areas used by DL/I. Field and flag 
names for each data area are also listed alphabetically. 

"Section 6: Diagnostic Aids:" Gives information that may be helpful in locating 
specific program listings. 

"Section 7: Appendixes:" Contains information about LLC/CC in DL/I, DBD 
generation, PSB generation and DL/I macros. 

An index is also included. 



DL/I DOS/VS General Information Manual GH20-1246 

DL/I DOS/VS Application Programming: CALL and RQDLI Interfaces, 

SH12-5411 

DL/I DOS/VS Data Base Administration, SH24-501 1 



vi DL/I DOS/ VS Logic Manual, Volume 1 



Licensed Material — Property of IBM 



DL/IDOS/VS Resource Definition and Utilities, SH24-5021 

DL/I DOS/VS Interactive Resource Definition and Utilities, SH24-5029 

DL/ 1 DOS/ VS Recovery/ Restart Guide, SH24-5030 

DL/I DOS/VS Application Programming: High Level Programming Interface, 

SH24-5009 

DL/I DOS/VS Messages and Codes, SH12-5414 

DL/I DOS/VS Guide for New Users, SH24-5001 

DL/I DOS/VS Diagnostic Guide, SH24-5002 

DL/I DOS/VS Logic Manual, Volume 2, LY24-5215 
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For VSE and VSE/VSAM messages and return codes: 

VSE / Advanced Functions Messages and Codes, SC33-6098 

VSE /Advanced Functions Application Programming: User's Guide, SC24-5210 

VSE /Advanced Functions Application Programming: Reference, SC24-5211 

Using VSE/VSAM Commands and Macros, SC24-5144 

VSE/VSAM Messages and Codes, SC24-5146 



Users employing DL/I DOS/VS in an online environment should have access to 
the following CICS/VS publications: 



CICS/DOS/VS Installation and Operations Guide, SC33-0070 

CICS/VS Customization Guide, SC33-0131 

CICS/VS Performance Guide, SC33-0134 

CICS/VS Resource Definition Guide, SC33-0149 

CICS/VS Application Programmer's Reference Manual (Macro Level), 

SC33-0079 

CICS/VS System /Application Design Guide, SC33-0068 
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Section 1. Introduction 



DL/I Batch System 



Data Language/I Disk Operating System/Virtual Storage (DL/I DOS/VS, 
hereafter referred to as DL/I) is a data management control system that assists the 
user in creating, accessing, and maintaining large common data bases. In 
conjunction with the Customer Information Control System (CICS/DOS/VS), 
DL/I can be used in an online teleprocessing environment. Also in conjunction 
with CICS/VS, DL/I provides a centralized data facility, multiple partition support 
(MPS), which controls concurrent access to data bases from multiple batch 
partitions. 

Section I summarizes and describes the following: 



DL/I Batch System 
DL/I Online Processor 
DL/I Facility Modules 
Multiple Partition Support (MPS) 
DL/I Utilities 



The DL/I batch system executes as an application program in a virtual storage 
environment under DOS/VS. The DOS/VS partition in which the DL/I batch 
system executes is composed of the elements shown in Figure 1-1 on page 1-2. 
These are: 






• The system control facility 

• The DL/I facility 

• The POS/VS VSAM and SAM data management modules 

• The user application program 

The major components of the DL/I system are the system control facility and the 
DL/I facility. The system control facility receives control from DOS/VS job 
control, initializes the DL/I batch system, and interfaces between DL/I and the 
user application program. The DL/I facility interfaces with the DOS/VS VSAM 
and SAM data management modules when performing the data base call function 
requested by the user application. 

The system control facility is divided into three functional areas (see Figure 1-2 on 
page 1-3): 

• Batch initialization 

• Language interface 

• Program request handler. 

Batch initialization is responsible for: 

• Initial interface with DOS/VS job management 

• Analysis and validity checking of DL/I parameter information 

• Loading the batch nucleus. 

• Loading the DL/I application control blocks (PSB and DMBs) and relocating 
the control block addresses. 
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• Creation of the PSB intent list and the DMB directory (DDIR). 

• Acquiring and formatting storage for the buffer pool control blocks and their 
related I/O buffers. 

• Loading the DL/I facility modules. 

• Loading the application program and passing control to it. 

The language interface provides communication between the application program 
and the program request handler. This module is link-edited with the application 
program and provides a common interface for DL/I calls written in PL/I, COBOL, 
RPG II, or Assembler language. 
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Figure 1-1. Elements of a DL/I DOS/VS Batch Partition 
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Figure 1-2. System Control Facility Relationships 



C 



The program request handler receives the DL/I call from the user application 
program via the language interface. It performs the following functions: 

• Checks validity and, if necessary, reformats the caller's parameter lists and 
submits them to the DL/I facility. 

• Accepts parameter lists from the DL/I facility and moves data to the user's 
work area, if required. 

• Returns control directly to the user application program. 
See Section 3 for a detailed description of each of these modules. 
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DL/I Online Processor 



DL/I Facility Modules 



In an online environment, the DL/I system executes within the CICS/VS partition. 
CICS/VS provides exit interfaces to DL/I for the following: 

• DL/I system initialization during CICS/VS initialization. 

• DL/I system termination during CICS/VS termination. 

• DL/I user task completion and return of DL/I resources after the application 
program has issued a CICS/VS synchronization point (SYNCPOINT) 
command or has completed processing. 

When the user application program issues a DL/I call, control passes to a language 
interface module, the EXEC interface program (if HLPI is used), and the program 
request handler. The program request handler validates the call and passes it to the 
DL/I facility. The DL/I facility invokes CICS/VS services through the online 
interface for such functions as transaction and storage management. On 
completion of the DL/I call, the DL/I facility returns control to the user 
application program via the program request handler. 



The functions of data base creation, access, maintenance, and reorganization are 
accomplished by the DL/I facility (see Figure 1-3 on page 1-7). The DL/I call is 
passed from the system control facility to the DL/I call analyzer, which is the focal 
point of the DL/I facility. The type of call is analyzed (DL/I call, pseudo call, or 
internal call resulting from a DL/I call), and control is passed to the appropriate 
action module to process the call. 

The action modules of the DL/I facility, together with their major functions, are 
listed below: 

• Open/Close Module 

- Open DL/I data bases 

- Close DL/I data bases 

- Interface with data base logger to write data set open record to log file 

• Delete/Replace Module 

- Delete a segment of a DL/I data base in conjunction with the buffer 
handler 

- Replace a segment of a DL/I data base in conjunction with the buffer 
handler 

- Interface with data base logger to record changes on log file 

- Interface with space management for HDAM and HID AM data bases 

- Interface with index maintenance for data bases with indexes 
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• Load/Insert Module 

- Load segments into a DL/I data base in conjunction with the buffer 
handler 

■- Insert segments into a DL/I data base in conjunction' with the buffer 
handler 

- Interface with data base logger to record changes' on log file 

- Interface with space management for HDAM and HID AM data bases 

- Interface with index maintenance for data bases with indexes 

- Issue I/O for HSAM and Simple HSAM data bases 

• Retrieve Module 

- Retrieve a segment of a DL/I data base in conjunction with the buffer 
handler 

- Perform data base positioning for load/insert 

- Issue I/O for HSAM and Simple HSAM data bases 

• Index Maintenance 

- Maintain any indexes for HDAM or HID AM data bases in conjunction 
with the buffer handler 

- Interface with data base logger to record changes on log file 

• Space Management 

- Allocate and maintain free space on DASD in conjunction with the buffer 
handler for storage of DL/I segments for HDAM and HID AM data bases 

- Interface with data base logger to record changes on log file 

• Buffer Handler 

- For HDAM or HID AM data base, satisfy requests for segments or records 
from data currently available in the buffer pool 

- Issue I/O to VSAM for HDAM or HIDAM data base requests that cannot 
be satisfied from the buffer pool 

- Issue I/O to VSAM for all HISAM, Simple HISAM, and Index data base 
requests 

• Data Base Logger 

- Record all data base modifications on the DL/I log tape using DOS/VS 
SAM or disk log using VSAM, or CICS Journal 
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• Queuing Facility 

- Provide support for contention control at the segment and record level 

- Provide deadlock detection and resolution. 

• Field Level Sensitivity Copy Module 

- Provide user view/physical view conversion for field level sensitivity. 
See Section 3 for a detailed description of the modules. 
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Figure 1-3. DL/I Facility Relationships 
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Multiple Partition Support (MPS) 



DL/I Utilities 



DL/I enables batch application programs executing in different partitions to access 
online data bases concurrent with online applications. This capability is called 
multiple partition support (MPS). For example, MPS permits online applications to 
issue inquiries to a data base while a batch program updates the data base. MPS 
uses the DL/I resources and the multitasking facilities of DL/I and CICS/VS. 



The DL/I utility modules are categorized as follows: 

• Application control blocks creation and maintenance: this utility program is 
used to merge and expand into an internal format the control blocks created by 
the DBD and PSB generation utilities. The control blocks created by this 
utility are used by the DL/I system. 

• Data base recovery: this is a set of utility programs employed to reconstruct a 
database. 






/C 



HLPI Interface Modules 



Data base reorganization: this is a set of utility programs employed to 
reorganize a data base. Use of these programs reduces direct access storage 
requirements by compacting data and thus reducing data base access time. 

Data base logical relationship resolution: this is a set of utility programs 
employed to update pointer information when data bases involved in logical 
relationships and/or secondary index relationships are initially loaded or 
reorganized. 

ISQL Extract Defines Utility: this utility creates and stores an ISQL routine 
composed of ISQL Extract Define commands from data previously gathered 
and stored in tables with the DL/I Documentation Aid. Once the routine is 
created, it can be run under ISQL to define the necessary DL/I information to 
the EXTRACT facility of SQL/DS. 

Problem determination: this includes the log print utility which enables you to 
print the contents of DL/I log files to help you recover from system failures, 
and the trace print utility which enables you to print trace entries from tape or 
disk input files which are created by the DL/I trace facility. 



The HLPI interface modules, DLZEIPOO, DLZEIPBO, and DLZEIPB1 build DL/I 
calls from data provided in calls generated from EXEC DLI commands by the 
CICS EXEC translator. After the HLPI interface modules build the DL/I calls, 
they pass the calls to the Program Request Handler for execution by DL/I. 



Language Interface Modules 



There are two language interface modules used with batch and MPS HLPI 
programs. They are the COBOL language interface module (DLZLICBL) and the 
PL/I language interface module (DLZLIPLI). 
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Section 2. Method of Operation 



This section contains HIPO (Hierarchy, plus Input, Process, Output) diagrams and 
is included in Data Language /I Disk Operating System /Virtual Storage (DL/I 
DOS/VS) Logic Manual Volume 2, LY24-5215. 
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Section 3. Program Organization 

This section contains descriptions of the DL/I modules and their major routines. 
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System Control Modules 

/f~^\ - 
DLZRRCOO - Batch Initialization - Part 1 '<-> 

The responsibilities of this module are to: 

• Read required parameter information from SYSIPT or SYSLOG based on the 
UPSI byte setting. 

• Determine load address for batch nucleus module (DLZBNUCO). 

• Provide a DL/I message subroutine (ERRORMSG). 

• Branch to region control interface (DLZRRC10). 
Entry Interface - DLZRRCOO 

DLZRRCOO receives control from VSE job control. f 

Exit Interface 

DLZRRCOO passes control through branch to region control interface 
(DLZRRC10). 

Register Contents 

R7 Address of ERRORMSG 

RIO Entry point address of DLZRRC 10 * ''; 



Entry Interface - ERRORMSG 

ERRORMSG receives control through BALR from DL/I modules. 

Register Contents 

Rl PST address or parameter list address 

R13 Save area address /^ 

R14 Return address 

R 1 5 Entry point address (DLZERRMS) 



Exit Interface - Calling Module 
Passes control through branch on register 14. 
DLZRRC10 - Region Control /Initialization - Part 2 



This routine receives control from the DL/I initialization Part 1 routine and 
continues batch initialization. Its responsibilities are: 

Save input parameters 

Load batch nucleus module (DLZBNUCO) 

Establish SCD and PST addressability 

Invoke parameter analysis (DLZRRA00) jr x 

Load and initialize PSBs and DMBs if 

Allocate and format buff ers ^J^ 
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• Branch to application program control module (DLZPCCOO) 

Entry Interface - DLZRRC10 

Receives control through branch from DLZRRCOO 

Entry Register Contents 

R7 Address of ERRORMSG 
RIO Entry point address 

Exit Interface - Parameter Analysis 

Passes control by fall through to DLZRRAOO 

Exit Register Contents 

R2 Address of SCD 
R9 Address of PST 
R13 Save area address 



DLZRRAOO - User Parameter Analysis 



This routine checks the positional parameters for valid length and contents when 
first entered. Invalid parameters cause DL/I to issue an error message and 
abnormally end. There is an entry at NXTPORT (just before buffers are to be 
allocated) to check keyword parameters. Errors cause DL/I to issue an error 
message and abnormally end. 
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Layout and Description of PARM Field 



XXX 



xxx,aaaaaaaa,bbbbbbb,ccc,keyworci operands 

PARM identifier in columns 1-3. 
DLI Data base program to be executed. 
UDR Data base recovery utility to be executed. 
ULU Data base reorganization or logical 

relationship resolution program to be executed. 
ULR HD reorganization reload utility to 

be restarted from checkpoint record. 
PLU Selective Unload 



aaaaaaaa One- to eight-character name of the 
application program to be executed. 



bbbbbbb 



ccc 



keyword 
operands 



One- to seven-character name of the program 
specification block (PSB) as specified in 
the PSB generation. 

If PARM is UDR, ULU, or ULR, one- to 

seven-character name of the data base 

description (DBD) as specified in the DBD generation. 

Number of data base buffer sub-pools required for job execution. 
HDBFR, HSBFR, ASLOG, LOG, and TRACE 






v_y 






Entry Interface 

Receives control from DLZRRC 1 
Entry Register Contents 

• When entered at DLZRRAOO: 

R2 Pointer to SCD (not used) 

R9 PST address 

R13 Save area address (not used) 

• When entered at NXTPORT: 

R6 Pointer to first subpool information table 
R8 SCD address 

Exit Interface 

• From DLZRRAOO entry: Passes control by fall through to DLZPCCOO 

• From NXTPORT entry: Passes control by branch to PRMSRET 
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Exit Register Contents 

• From DLZRRAOO entry: 

R2 SCD address 
R9 PST address 
R13 Save address 

• From NXTPORT entry: 

R2 SCD address 

R6 Pointer to last subpool information table 

R9 PST address 

R 1 3 Save area address 



DLZPCCOO - Application Program Control 



^\, 



This routine is used only in the batch partitions. It performs some functions 
analogous to those performed by the CICS scheduler in the online control program. 
It is responsible for the following functions: 

Initializing the storage management routine 

Invoking the application control blocks loader/relocator 

Invoking the control program initialization routine 

Loading the application program 

Initializing the PL/I region (if PL/I) 

Invoking the application program 

Issuing an unload call in behalf of the application program upon termination 

Writing the application program termination record on the DL/I log 

Closing the DL/I log. 

Data Areas Used 

PST 

SCD 

DDIR 

DMB 

SDB 

PSIL 

Entry Interface 

Receives control by fall through from DLZRRAOO 

Entry Register Contents 

R2 SCD address 
R9 PST address 
R13 Save area address 

Exit Interface 

• Passes control through BAL to DLZPINIT 

• Passes control through BAL to application program 

• Passes control through BAL to call analyzer (DLZDLAOO) 

• Passes control through BAL to data base logger DLZRDBLO) 
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• Passes control to VSE supervisor by issuing an SVC 14 normal EOJ supervisor 

call. 

/f <\ 

Exit Register Contents \^ 

• From exit to DLZPINIT: 

R2 SCD address 
R9 PST address 
R14 Return address 

• From exit to application program: 

Rl Address of PCB address list 

R13 Save area address 

R14 Return address 

R15 Entry point 

• From exit to DLZDLAOO: 

Rl PST address 

R13 Save area address 

R14 Return address 

R15 Entry address of call analyzer (obtained from SCD at label SCDDLICT) 

• From exit to DLZRDBLO: 

Rl ^PST address --^ 

R13 Save area address 

R14 Return address ^.S 

R15 Entry point of log write-only routine (obtained from SCD at label 

SCDREENT) or, Entry point of force write routine (obtained from SCD 
at label SCDDBLFW) or, Entry point of logger close routine (obtained 
from SCD at label SCDDBLCL) 



DLZDBLMO - Application Control Blocks Load and Relocate 



This routine performs the functions of loading and relocating DL/I application 
control blocks. Once the blocks are loaded and offsets resolved to actual 
addresses, the SDBs in the PCBs are connected to the appropriate PSDBs in the 
DMBs. The JCB data sets in the data base are connected to the appropriate ACBs 
in the DMBs, and control is returned to the calling routine. 

For 'DLF or 'PLIT execution, the PSB name extracted from the PARM card is 
moved to the PSB directory and the PSB is loaded. The address of the PSB 
segment intent list and the PSB are stored in the PSB directory. The index work 
area (if required) is allocated and addresses are resolved. Next the intent list is 
scanned and the DMB directory is constructed from it. The DMB directory entries 
are scanned and the DMBLOADR subroutine (see below) is called to load and 
relocate the DMBs in the directory. Upon completion, the SDBs are connected to 
their corresponding PSDBs, the JCB DSGs are connected to their ACBs, and 
return is made to the caller. 

For the following utilities there is no PSB name in the parameter information: 

DLZURPRO - Data base prereorganization 
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DLZURGSO - Data base scan 
DLZURGPO - Data base prefix update 

These utilities perform dynamic block loading using the DLZBLKLD macro. 

The DMBLOADR subroutine performs the loading and relocation of DMBs. The 
DMB directory is accessed and the DMB name extracted from it. A load is issued 
for the DMB and, if HDAM, the randomizing module extracted from the DMB is 
loaded. Next, the DMB directory entry is updated with a buffer size indication. 
For HD, this value is the control interval size of the data set; for HISAM, it is the 
logical record size. Then all offsets are relocated to addresses, and control is 
passed to DLZCPIOO. 

Entry Register Contents 

R2 SCD address 

R9 PST address 

R13 Address of one of a set of prechained save areas 

R14 Return address 



Exit Register Contents 
Same as entry register contents 
DLZCPIOO - Batch Control Program Initialization 



c 






This routine receives control from the application control blocks load and relocate 
routine and completes the intialization of the DL/I batch system. It is responsible 
for: 

• Allocation of the buffer pool 

• Formatting the buffer pool prefix, one or more subpool prefixes, and the buffer 
prefixes 

• Loading all required DL/I action modules 

• Initializing the SCD 

• Opening the DL/I log 

• Writing the application program scheduling record on the DL/I log 

Entry Interface - DLZCPIOO 

Receives control by fall through from routine DLZDBLMO. 

Entry Register Contents 

R2 SCD address 
R9 PST address 
R13 Save area address 

Exit Interface 

Returns to DLZPCCOO 

Exit Register Contents 

R9 PST address 
R2 SCD address 

Section 3. Program Organization 3-7 



Licensed Material — Property of IBM 



R14 Return address 
DLZBPJRA - DL/I COBOL Preinitialization Module 



This module is linked with batch COBOL programs to call ILBDSETO. An entry 
card with the name CBLCALLA is required in the link edit job step of the batch 
COBOL program. 

DLZBPJRA does the following: 

• Branches to IBLDSETO, the COBOL routine entry point 

• Then exits by branching to the application program entry point (DLITCBL). 

Interface 

This module interfaces with the following: 

ILBDSETO - COBOL routine entry point Application program. 

Control Blocks 

None. 

Normal Entry Point 

The only entry point to this module is CBLCALLA 

Entry Register Contents 

R14 Linkage register 
R15 Base register 

Exit Register Contents 

R 1 4 Linkage register 

R15 Application program entry point 






/T 






DLZLIOOO - Language Interface 



The language interface provides communication between the application program 
and the program request handler. A copy of this module is link edited with user 
application programs. 

The language interface has responsibility for: 

• Storing the user's registers in the save area provided. 

• Providing a specific entry for Assembler, COBOL, RPG II, and PL/I 
application programs. 

• Locating the entry point of the program request handler. 

• Passing control to the program request handler 
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Entry Interface - DLZLIOOO 

Receives control through branch from application program 

Entry Register Contents 

Rl Call parameter list of implicit or explicit format 

R13 Save area address 

R14 Return address 

R15 Entry point 

Exit Interface 

Passes control to program request handler through branch from DLZLIOOO 

Exit Register Contents 

RO Language identifier code 

Rl Parameter list 

R2-14 As entered from application program 

R15 Entry point of program request handler 

DLZLICBL - DL/I DOS/VS HLPI Batch/MPS COBOL Language Interface 

This module obtains the entry point address of and passes control to DLZEIPBO. 

Control Blocks - DLZLICBL 
EIPL EIP parameter list 
Normal Entry Point 

The entry points to this module are: 

DLZEI01 Data base calls 

DLZEI02 All other calls 

DLZEI03 Reserved 

DLZEI04 Reserved 

DFHEI1 Common entry point 

Entry Register Contents 

R 1 3 Register savearea address 

DLZLIPLI - DL/I DOS/VS HLPI BATCH/MPS PL/I Language Interface 

This module has two routines; An initialization routine with an entry point 
I DLZLIPLI and a processing routine with an entry point DLZEIOx, or DFHEI01. 

Entry point DLZLIPLI is entered before the application program gets control. It 
finds the entry point address of PLICALLB and passes control to it. This is done 
to enable the PL/I HLPI application program to use non-PL/I PSBs. 

j DLZEIOx or DFHEI01 performs the same functions as DLZLICBL (see 
DLZLICBL for details). 
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Control Blocks - DLZLIPLI 

EIPL EIP parameter list 
Normal Entry Points 

The normal entry points to this module are: 

DLZLIPLI From DL/I initialization 

DLZEI01 All other calls 

DLZEI02 Data base calls 

DLZEI03 Reserved 

DLZEI04 Reserved 

DFHEI01 Common entry point 

Entry Register Contents 

R13 Register savearea address /f~~\ 

DLZPRHBO - Program Request Handler ^^ 

The interface between the application program and the DL/I batch or control 
program is managed by the program request handler routine (DLZPRHBO) in 
module DLZBNUGO. It accepts parameters passed to it by the language interface 
module (DLZLI000), or the HLPI batch EXEC interface program, DLZEIPBl. It 
validates these parameters and passes a parameter list to the call analyzer. 



if 



The program request handler accepts three call list formats: implicit direct, explicit 

direct, and explicit indirect. COBOL and Assembler-language programs may use 

either the implicit direct or explicit direct call list formats. Since special provisions \*J? 

are made for PL/I in handling the explicit indirect call list, it may be used only by 

PL/I language programs. 

The first parameter (argument 0) of the DL/I CALL determines whether the list is 

explicit or implicit. If the argument contains the address of the parameter count 

(count of the number of arguments that follow), this list is an explicit list. If the 

argument contains the address of the DL/I CALL function, this list is an implicit 

list. ^ N 

The responsibilities of this routine are to: ^ 

• Verify parameter list addresses aligned and within the dynamic area of the 
machine 

Reformat explicit parameter lists to implicit prior to submission 
Reset PL/I STXIT PC processing 
Provide caller's parameter list to the call analyzer 
Return data to application program work areas 
Maintain PL/I variable-length character string dope vector 
Identify abnormal termination condition 
Return directly to application program 
Write checkpoint message if checkpoint issued 
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Data Areas Used 

PPST 

PST 

SCD 

Entry Interface 

Receives control through branch from language interface (DLZLI000) 

Entry Register Contents 

RO Language indicator. Bit X'01' on if PL/I, off for other languages. BitX'02' 

on if HLPI, off if call interface 
Rl Parameter list address (in application program format) 
R13 Save area address 
R14 Return (to application program) 
R 1 5 Entry point address 

Exit Interfaces 

• Passes control through branch to call analyzer (DLZDLAOO) 

• Passes control through branch to error message writer (ERRORMSG) 

• Passes control through branch to abend processor (DLZABEND) 

• Passes control through branch to application program 

Exit Register Contents 

• From exit to DLZDLAOO: 

Rl PST address 

R13 Save area address 

R14 Return address 

R15 Entry point of call analyzer (obtained from SCD) at label SCDDLICT 

• From exit to ERRORMSG: 

Rl PST address 
R13 Save area address (PSTSV1) 
R14 Return address 

R15 Entry point of error message writer (obtained from SCD at label 
SCDERRMS) 

• From exit to DLZABEND: 

Rl 5 entry point to DLZABEND 

• From exit to application program: 

R2-12 Restored to contents upon entry from application program to 

language interface module (DLZLI000) 
R14 Application program return address 
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DLZABEND- STXIT ABEND 



Abnormal terminations invoked through the VSE STXIT or terminations requested 



DLZIWAIT - DL/l IWAIT 



This module receives control when a DL/I action module requires VSE wait 
linkage. 



if 






by DL/I action modules are handled by DLZABEND. Responsibilities are as \*Jr 

follows: 

• Close the DL/I log. 

• Issue an UNLD call to write the last records for Simple HSAM, HSAM, Simple 
HISAM and HISAM or write all buffers altered by the user. The UNLD call 
also closes the data base. 

• If a dump is requested, write a formatted dump of DL/I control blocks. 

• Cancel the partition. 
Entry Inter faces 

• Receives control through VSE STXIT PC interface or STXIT AB interface 

• Receives control through branch from program request handler (DLZPRHBO) 

• Receives control through branch from DL/I action modules (including a 
special entry from the buffer handler) 

Exit Interfaces 

• Passes control through branch to data base logger (DLZRDBLO) 

• Passes control through branch to call analyzer (DLZDLAOO) 

• Passes control through SVC 6 (CANCEL) or SVC 2 ($$BJDUMP) to VSE 

Exit Register Contents 

• From exit to DLZRDBLO: 

Rl PST address 

R13 Save area address (PSTSV1) 

R14 Return address 

R15 Entry point of logger force write routine (obtained from SCD at label 

SCDDBLEW) or, 

Entry point of logger close routine (obtained from SCD at label 

SCDDBLCL) 

• From exit to DLZDLAOO: 

Rl PST address 

R13 Save area address 

R14 Return address 

R15 Entry address of call analyzer (obtained from SCD at label SCDDLICT) 



rf > 



o 
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Entry Interface 

Receives control through BALR from a DL/I action module 

Entry Register Contents 

R2 Address of event control block 
R14 Return address of caller 
R15 Entry point of DLZIWAIT 

Exit Interface 

• Passes control through SVC 7 (WAIT) to VSE. 

• Passes control through branch on register 14 to the calling program. 



DLZSTRBO - Batch Field Level Descriptor (FLD) Storage Manager 



c 



This module frees the current field level descriptor storage, increases storage 
requirements for FLD by 128 bytes, and acquires the storage for the new FLD 
entries. 

Interface 

This module interfaces with the following module: 
DLZDLAOO - Call analyzer 
Control Blocks - DLZSTRBO 

• PPST - PST prefix 

• PST - Partial specification table 

• SCD - System contents directory 

Normal Entry Point 

The only entry point to this module is DLZSTRBO 

Entry Register Contents 

Rl PST address 

R 1 3 Current register savearea address 



DLZSTROO - Online Field Level Descriptor (FLD) Storage Manager 



This module frees the current field level descriptor storage, increases storage 
requirements for FLD by 128 bytes, and acquires the storage for the new FLD 
entries. 

Interface 

This module interfaces with the following modules: 
DLZDLAOO - Call analyzer 
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Control Blocks - DLZSTROO 

. CSA /ir " X 

. TCA +S 

• PPST - PST prefix 

• PST - Partial specification table 

• SCD - System contents directory 

Normal Entry Point 

The normal entry point to this module is DLZSTROO. 

Entry Register Contents 

Rl PST address 

R13 Current register savearea address 



Online DL/I Processor Modules 



Before attempting to use this section, you should be familiar with the Customer x ^ 

Information Control System/ Virtual Storage (CICS/VS). References to the 
prerequisite publications are contained in the preface to this manual. 

The online DL/I processor modules DLZOLI00 and DLZODP perform the 
following functions in a CICS/VS-DL/I environment: 

a. DL/I system initialization 

b. DL/I user task scheduling 

c. Processing DL/I calls (online program request handler) <| 

d. DL/I user task completion A_y 

e. DL/I normal system termination 

f . DL/I abnormal system termination 

g. DL/I online message writer 

h. DL/I-VSAM-CICS/VS synchronization via VSAM 'EXCP' Exit. 



DLZOLI00 - Online Initialization 



In order to process DL/I applications in an online environment, a DL/I online 
Nucleus must first be generated. The DL/I online nucleus generation procedure is r \ 

described in DL/I DOS/VS Resource Definition and Utilities. The result of the V y 

procedure described in the publication is a DL/I online nucleus. 

The online nucleus, which is link edited into a VSE core image library, consists of 
the following DL/I nucleus modules and tables: 

module DLZODP 

module DLZEIPOO 

module DLZSTROO 

module DLZCOM00 

module DLZLOC00 

module DLZODPEX 

ACT (Application Control Table) 

SCD (System Contents Directory) 

DFHDLIAL (CICS/VS-DL/I Interface Address List) 

SCD Extension | 

PDIR (PSB Directory) V> 
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RPDIR (Remote PSB Directory) only if a Remote PSB is defined 

PPST (PST Prefix Table) 

PDCA (Problem Determination Control Area) 

EIPL (EXEC Interface Parameter List) 

module DLZMMSGT 

module DLZFTDPO 

module DLZISCOO (only if a Remote PSB is defined) 

The application control table (ACT) is used by DL/I online at CICS/VS 
initialization to verify and load all PSBs and DMBs that can be referenced online. 
The ACT is used during scheduling to determine whether an online program is 
permitted to use DL/I. It is also used by DL/I default scheduling to acquire a PSB 
to use if none was explicitly specified in the PSB scheduling call or command. 



The ACT is produced from parameters specified in the following DLZACT macro 
instructions: 

DLZACT TYPE=INITIAL 
DLZACT TYPE= CONFIG 
DLZACT TYPE=PROGRAM 
DLZACT TYPE=RPSB 
DLZACT TYPE=BUFFER 
DLZACT TYPE=FINAL 



c 



Each ACT program entry is generated from the DLZACT TYPE = PROGRAM 
statement. These statements define to DL/I which application programs can use 
DL/I online. They also define which PSB names can be used by each of the 
application programs. There is one ACT program entry for each DLZACT 
TYPE= PROGRAM statement used to generate the online nucleus. See the format 
of the application control table (ACT) in Figure 3-1 on page 3-16. 
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A. A(SCDSTART) 



A. Address of the System Contents Directory (SCD) 



— f 



$ 



c. 






Generated from: 
DLZACT TYPE ={ 
PROGRAM 



8 

B. Buffer pool information address or 

C. Storage layout control table name or 

D. Number of HD DBDs in HDBFR operand 

Program entry "T 



I bytes 



G. 



1 12 



H. 



I bytes 



E. ACTNM 

F. ACTUM D 



ACTPCNT 
ACTPPTR 



ACT program entry name 

Entry indicator byte: 

X'80' Program is a DL/I program 

X'40' Program name not in CICS/VS PPT 

X'30' ABEND option bit 

X'02' Program is deferred -scheduled 

Count of PDIR (PSB) pointers for this program 

PDIR pointer(s). ACTPCNT indicates how many pointers are 

included here before the start of the next ACT entry. 



/f > N 



Program entry 'n' 



A maximum of 4095 DLZACT TYPE = PROGRAM statements and a maximum of 
4095 unique entries (an entry consisting of program name and one PSBNAME) may 
occur in one ACT generation. 



I. 



Generated from: 
DLZACT TYPE = 
BUFFER 



% 



bytes 
I. Delimiter (FF FF FF FF) indicating end of program entries 
HDBFR entry (subpool '1') 



K. 



K. 






8 

J. Length of entry 

K. DBD name 

L. Number of buffers 

HDBFR entry (subpool V) 



18 



I bytes 



HSBFR entry (DBD#1) 








j M. I N. 


I °'" 


P. 


I Q. 


12 l8 


|2 


2 


I2 



bytes 



V. 



M. FF00 

N. DBD name 

O. Number of index buffers 

P. Number of KSDS buffers 

Q. Number of ESDS buffers 



HSBFR entry (BDB #n) 








I 








| 









R. 



bytes 
R. Delimiter (FF FF FF FF) 



Figure 3-1. Application Control Table (ACT) Format 
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Nucleus and Table Initialization 



DL/I initialization is performed during CICS/VS initialization just after loading 
the CICS/VS nucleus. The DL/I online nucleus module has been loaded by 
CICS/VS in the same manner as a CICS/VS nucleus module, and its address is 
placed in the CICS/VS CSA optional features list. 



DL/I verifies the presence of the online nucleus by checking the CICS/VS 
optional features list DL/I entry for a non-zero value. Once verified, the program 
request handler entry point is moved to the COMREG using the MVCOM macro. 
Each PSB name in the ACT is eight characters in length. Each PSB name is 
padded with @'s, if required, to make it seven characters long, and a P to make it 
eight characters long. 

Next the PSB segment intent list is built. This is accomplished by loading each PSB 
defined in the ACT, except those defined as remote PSBs, in ascending address 
space in the low end of the partition and moving the intent list, which is appended 
to the front of the PSB, to an entry in the PSB segment intent list table. The length 
of the PSB plus the length of the index work area, if required, are used to calculate 
how much storage to reserve. The segment intent list is overlaid during this process 
because its information is redundant. The PSB directory entry for each PSB is 
initialized with the address of the intent list, the PSB's storage address, and the 
amount of storage required. 

The DMB directory is constructed. One DMB directory entry is created for each 
unique data base (DMB) defined in the PSB intent list entries. DMB names are 
eight characters in length and consist of the DBD generation name extended to 
seven characters by at-signs (@) if necessary. The eighth character is D. At this 
time, a validity check is performed to ensure that all required DMBs, defined by the 
PSB intent list, have been defined in the CICS/VS file control table (FCT). If any 
are missing, a message is written on the system console and the operator is given 
the option to continue or cancel. If initialization is to continue, PSBs which require 
the omitted DMB(s) are flagged to indicate this condition. Application programs 
which use these PSBs are not scheduled. 



Load Action Modules 



^JpF^ 



Initialization continues with the loading of all DMBs specified in the DMB 
directory. As each DMB is loaded, the corresponding entry in the DMB directory 
is initialized. A test is then made for HDAM and the defined randomizing routine 
is loaded. As the DMBs are loaded, they are initialized. After all DMBs have been 
loaded and initialized, the size of the buffer pool is determined. The size of the 
pool is based on a user-supplied parameter which defines the number of subpools, 
the control interval size of each VSAM data set, and the HDBFR subparameter, 
which tells how many buffers will be in a subpool. 

After the pool size is determined, the required address space is reserved. Then the 
buffer pool prefix in the online nucleus is initialized. Next the subpool prefixes are 
created and initialized. There are 2-32 prefixes for each subpool. 



Upon completion of initialization of the buffer pool and prefixes, the DL/I action 
modules are loaded. As the modules are loaded, their corresponding entry points 
are moved to the SCD. The modules are loaded in the following standard sequence 
if not otherwise specified by a storage layout control table: 



DLZDBHOO 
DLZDLROO 



Buffer handler 
Retrieve 
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Initialize PSBs 



Attach Logger 



Open Data Bases 



DLZDLAOO Call analyzer 

DLZRDBLO Data base logger 

DLZDLDOO Delete/Replace 

DLZDDLEO Load/Insert 

DLZDHDSO Space management 

DLZDXMTO Index maintenance 

DLZDLOCO Open/Close 

DLZQUEFO Program Isolation ENQ/DEQ module 

DLZQUEFW Program Isolation ENQ/DEQ work area 

DLZCPY10 Field Level Sensitivity Copy 



Upon completion of the loading of the action modules, initialization moves the 
specified PSBs using information stored in the PSB directory entries. After each 
PSB is moved, it is initialized and its corresponding PSB directory entry filled in. 



If data base logging has been specified by the user, the logger I/O module is 
initialized and attached. If the log module fails to attach, the data base log is closed 
and no logging takes place. 



The final step of initialization is the opening of the data bases. The DMB directory 
is scanned for DMB's that failed during initialization and the open initial attribute 
is reset for any found. Next the data bases are opened via an 'open all' call to the 
DL/I Open/Close module. All modules indicating open initial in the DDIR are 
opened by Open/ Close at this time. 

Upon completion of the open processing, the IWAIT routine address is restored 
and control is returned to CICS initialization. 






1> 



DLZODP - DL/I Task Scheduling 



DL/I Scheduling 



A DL/I call or HLPI SCHEDULE command initiates DL/I PSB scheduling. The 
call function code is 'PCB' and the call contains the name of the PSB to be used. 
The call is passed to the online program request handler via a language interface 
module and a scheduling validity check is made. If the call is valid, the parameter 
list is checked for a User Interface Block (UIB) pointer parameter. If specified, a 
UIB will be used for returning return code and PCB address list information to the 
application program. Upon completion, control is returned to the application 
program through the program request handler and the language interface. If the 
call is invalid, a two byte error return code is stored in the UIB or CICS/VS TCA 
and control is returned directly to the application program. For an HLPI 
command, the task abnormally terminates with a DLZ037I message indicating why 
the PSB was not scheduled if the call could not be completed. 

If the 'PCB' call is made to schedule the system interface (by specifying a PSB 
name of 'SYSTEMDL'), the password is tested against the one generated in the 
nucleus via the DLZACT macro and the system interface is tested for availability. 
A PST and dummy DSG are acquired for the caller, the task is marked as a system 
task^and control is returned to the user. 
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Task Scheduling 



Local PSB Scheduling 



The caller provides the name of the PSB to be scheduled or optionally if the caller 
omits the PSB name in the call list, the first PSB name in this program's ACT entry 
is provided as default. 



This subroutine determines whether DL/I can schedule another concurrent task. 
The SCD maximum task indicator is tested. If it is on, the task cannot be 
scheduled and the SCD suspended task counter is incremented by one. A 
CICS/VS SUSPEND macro is issued to suspend this task. 

If the SCD maximum task indicator is off, an available PST prefix entry is located 
and initialized for this task. The DL/I task accumulator is incremented by one and 
a test is made to determine whether the number of DL/I tasks now equals the 
maximum allowed. If yes, the SCD maximum task indicator is set. 

PST storage is acquired from CICS/VS Storage Management and the storage 
address is saved in the assigned PST prefix. Task Scheduling consists of formatting 
the save area chains and storing the address of the assigned PST prefix. Control is 
passed to the local/remote call router routine, DLZCOM00. If a remote PSB is to 
be scheduled, control is passed to the remote scheduling subroutine, DLZISCOO, 
which transfers the request to the remote system. If a local PSB is to be scheduled, 
control is passed to the local PSB scheduling routine, DLZLOC00. 



This subroutine determines the segment intent of the PSB being scheduled and 
ensures that no more than one task is scheduled to update the same segment 
type(s) in the same data base unless program isolation is active. For retrieve 
sensitive only PSBs or update sensitive PSBs with program isolation active, a 
duplicate PSB is created if a prior task has scheduled the same PSB. If the task 
cannot be scheduled, a CICS/VS SUSPEND is issued. If not in use, but retrieve 
sensitive only, the in-use indicator is set and control is passed to PSB initialization. 
If neither of the above is true, the PSB segment intent list entry is scanned. If 
program isolation is not active and the PSB is not retrieve only sensitive, the PSB 
segment intent list entry is scanned. 



PSB Initialization 






The segment intent list for this PSB is located from the PSB directory entry. This 
list defines all segments in the data base(s) used by this PSB and the PSB's 
sensitivity to them. The segment intent list entry is compared to the segment intent 
list entries of all scheduled PSBs. If no intent conflict is detected, the PSB 
initialization subroutine is called. Otherwise a CICS/VS SUSPEND is issued for 
the task. Upon completion of a successful segment intent scan, the PSB 
initialization subroutine is called. 

If it is necessary to provide duplicate copy(s) of PSBs, this routine acquires storage 
for the copy and moves the original copy to it. Addresses in the duplicate PSB are 
initialized and a duplicate PSB directory entry is created. The level table(s) are 
then reset and control passed to the PSB initialization subroutine of DLZLOC00. 



PSB initialization consists of inserting the SDBs in the PSB into the SDB chain. 
The PSB is located from its PSB directory entry, and the address of the PCB 
address list is stored in the CICS/VS TCA. Each PCB is located and the JCB 
pointer is used to obtain the address of the start of the SDBs for that PCB 
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(JCBSDB1). Each JCB is accessed and the SDB chain pointers in the SDB and the 
PSDB in the DMB are updated. This process continues for all SDBs defined in the 
PSB. 

The address of the assigned PST is obtained from the PST prefix and stored in the 
PSB. Using this address, the PSB directory entry address is stored in the PST. The 
"DL/I is scheduled" indicator in the PST prefix is set. If the PSB indicates update 
sensitivity, a call is made to the DL/I data base logger module (DLZRDBLO) or 
CICS/VS journal interface routine (DLZDRBL1) to write an application program 
scheduling record (X'08'). Control is then returned to the application program. 



This routine builds a scheduling call parameter list and passes it to the CICS/VS 
ISC interface routine, DFHISP. The call format is again transformed and routed 
by CICS/VS to the remote system that was defined in the corresponding DL/I 
online nucleus RPSB definition. The scheduling call is executed on the remote 
system by a CICS/YS mirror program, DFHMIR. The results of the scheduling 
call is returned to the local system by CICS/VS. If the scheduling call was 
successful, CICS/VS returns the addresses of local copies of the PCBs acquired in 
the remote system. 



DLZPRHOO - Online Program Request Handler 



Language Interface Module 



Program Request Handler 



DL/I online calls are made in the same format as batch calls except that CALLDLI 
is used instead of CALL for Assembler language. The user issues a call instruction, 
passing parameters in the call list, and provides a register save area address in 
register 13. Communication of the results of the call is also identical to the batch 
system. It should be noted that although the format of the call instruction for 
online is the same as in batch, storage used by DL/I to process the call (i.e., 
register save area, all data items in the call list, I/O area) must be acquired from 
CICS/VS dynamic storage due to the re-enterability requirements of application 
programs which run under CICS/VS. 

DL/I HLPI commands are translated into calls to the DL/I EXEC interface 
program DLZEIPOO. This module converts translator-generated calls into 
standard DL/I calls for each HLPI command. 



The language interface module is link-edited with each application program. The 
module has two entry points; one for Assembler, COBOL, and RPG II; and the 
other for PL/I. The first function performed at either entry point is to save the 
user's registers. Then a language indicator is set, the entry point to the program 
request handler is acquired from the VSE COMREG, and a branch is taken to the 
program request handler. 

For HLPI, CICS/VS EXEC stubs, DFHECI for COBOL, and DFHPL1I for PL/I, 
are used instead of the DL/I language interface module. The CICS/VS stubs pass 
control to the CICS/VS EXEC interface program and then the DL/I EXEC 
interface program before control is given to the program request handler. 



The program request handler validates the DL/I call parameters. For scheduling 
calls, control is then given to the task scheduling subroutine and then to the 
common PSB scheduling routine, DLZCOM00. For data base calls, control is 



df~~^\ 
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C 



IWATT Routine 



given to the common data base call subroutine, DLZCOM01. This subroutine 
routes local calls to the call analyzer and remote calls to the remote data base call 
subroutine, DLZISC01. 

The DL/I action modules process the local calls and return control to the program 
request handler through the call analyzer. A test is made in the program request 
handler to determine whether a pseudo- ABEND condition exists. If it does, a 
CICS/VS task ABEND macro is issued with an ABEND code indicating the 
reason. If an ABEND is not required, a test is made to determine whether the call 
requires data to be moved back to the user. The data is moved to the user's I/O 
area if required. The user's registers saved by the language interface are restored 
and control passed back to the calling application program. 

System calls 'CMXT', 'STRT', 'STOP', TSTR', and 'TSTP' are processed by the 
system call routine, PROCSYS in DLZODP, after being routed there by the 
program request handler. 



The IWAIT routine is entered from the DL/I buffer handler (DLZDBHOO) or from 
other modules whenever an I/O wait or resource enqueue wait must be issued. 
The following processing occurs: 

Registers 14 through 12 and 13 are saved. 



Registers 12 and 13 are initialized with the CICS/VS CSA and currently 
dispatched TCA. 

A CICS/VS WAIT is issued. 

Upon return, checks are made to ensure the logger and formatted dump 
routines are not busy. 

All registers are restored. 



Control is returned to the calling module via register 14. 



C 



DLZODP01 - Task Termination 



Task Termination 



DL/I task termination is entered from the CICS/VS PCP when a user's task 
scheduled by DL/I returns through CICS/VS Program Management, issues a 
CICS/VS sync point, or issues a DL/I TERM' call. This routine is responsible for 
purging buffers altered by this task, calling the data base logger to write the 
application program termination record (X'07'), releasing any system resources 
owned by this task and resuming tasks which were suspended for the maximum 
task limit. 



Task termination writes a termination trace entry in the CICS/VS trace table. 
Then it determines whether this task is scheduled to use a remote PSB. If it is, 
control is given to the remote termination call subroutine, DLZISC02. This 
subroutine issues a CICS/VS sync point call which causes the remote mirror 
program, DFHMIR, which processes calls on behalf of the local application 
program, to be terminated. Next, task termination determines whether this task 
was assigned a PST prefix. If not, this task must have been stall-purged by 
CICS/VS after being suspended during task scheduling. In this case, the 
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suspended count accumlator is decremented and the task's TCA removed from the 
DL/I suspended task chain. Control is then returned to CICS/VS Program 
Management. 

If this task was assigned a PST prefix, a test is made to determine whether the task 
was scheduled. If not, the task was stall-purged by CICS/VS. This means this 
task was suspended by a CICS/VS Storage Management attempt to acquire either 
PST or PSB storage. If it was due to PST storage acquisition, the assigned PST 
prefix is cleared and put back on the free chain and the system resource allocation 
routine is entered. If it was due to PSB storage acquisition, the PSB directory entry 
is cleared, PST storage is freed, and the PST prefix is inserted in the free chain. 
Control is then passed to the system resource allocation routine. 

If the task was scheduled and active, normal task termination proceeds. First a 
DL/I internal TERM' call is issued to the call analyzer (DLZDLAOO). This call 
causes the analyzer to reset the level table(s) in the PSB. If update sensitive, the 
buffer handler (DLZDBHOO) is called to write out all buffers altered by this task. 
Next the PSB directory entry is tested for update sensitivity. If indicated, the data 
base logger (DLZRDBLO or DLZRDBL1, if CICS/VS journal is in use) is called 
to write the application program termination record (X'07'). If the task had update 
sensitivity, the PST prefixes are scanned and any suspended for scheduling because 
of segment intent conflict are resumed 

Next the PSB directory entry is released. A test is made to determine whether this 
was a duplicate PSB. If so, the storage acquired for the PSB is freed and the 
duplicate PSB directory entry is cleared. 

If the system call interface is active, the DDIR entries for the terminating PSB are 
checked to see if the system task is waiting to close this data base. If it is and the « 
use count of the DMB is now zero, the system task is posted to continue 
processing. 



System Resource Allocation 



This routine is responsible for resuming tasks which are suspended due to the 
maximum task limit. First the DL/I suspended task counter is tested. If nonzero, 
the first task on the DL/I suspend chain is located and a CICS/VS RESUME 
macro is issued. The suspend chain is then updated by removing the task's TCA 
from it, the suspended task counter is decremented, and, if zero, the maximum tasjt 
indicator is reset. Control is then returned to the CICS/VS PCP. 

DLZODP02 - DL/I Normal System Termination 

The following processing occurs prior to CICS/VS termination. 

• DL/I system termination (DLZODP02) is entered from the DL/I linkage 
module DLZSTPOO, as specified in the CICS/VS pre-termination processing 
list section of the program list table (PLT). 

• If in use, the DL/I log DTF is closed via a VSE CLOSE macro. 

• If MPS is active, control is given to the MPS system termination routine in 
DLZMPCOO. 

• Control is returned to CICS/VS. 

• DL/I system termination is re-entered by CICS/VS system termination. 
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A DL/I CLOSE call is issued to the DL/I Open/CLose module 
(DLZDLOCO) to close all data sets for all DMBs in the system. 



• Control is returned to CICS/VS. 
DLZODP03 - DL/I Abnormal System Termination 



The DL/I abnormal system termination routine is entered from CICS/VS when 
the DL/I partition is to be terminated abnormally. The following processing 
occurs: 

• A switch is set to avoid closing data bases on invocation of DLZODP02. 

• Control is returned to CICS/VS which later calls DLZODP02. 



DLZODP04 - PSB Scheduling Start-of-Task Record Routine 



This routine issues CICS/VS DFHJC macros to write a CICS/VS Start-of-Task 
record to the CICS journal. 

This routine is entered from DLZCOM00 on successful completion of a PSB 
scheduling call for a local data base. 

This routine is not called if a PSB with read-only intent is scheduled. If a 
CICS/VS Start-of-Task record was previously written for the current CICS/VS 
logical unit of work, this routine returns without writing the Start-of-Task record. 



DLZODP05 - Task Termination Sync Point Routine 



( 



This routine issues a CICS/VS DFHSP macro to force a CICS/VS sync point to 
be taken when a DL/I PSB termination or DL/I checkpoint call is being processed. 
For TERM calls, this routine is entered from the DL/I Task Termination Routine, 
DLZODP01. For CHKP calls, it is entered from DL/I Online Common Data Base 
Routine, DLZCOMO 1 . 

The sync point macro is not issued when DLZODP01 and subsequently, 
DLZODP05, is entered from the CICS/VS sync point program, DFHSPP, while 
processing a CICS/VS sync point. Instead, a CICS/VS deferred work element is 
created to ensure that DL/I will be given control again after additional CICS/VS 
sync point processing has been completed. 



DLZODP06 - Abnormal Task Termination Dump Entry 



This routine is entered from DFHPCP on abnormal task termination before 
dynamic transaction backout is performed by CICS/VS. This routine determines 
whether a DL/I formatted or VSE IDUMP should be taken and gives control to 
the appropriate dump routine. 



DLZODP07 - Abnormal Task Termination I/O Check Entry 



This routine is entered from DFHPCP on abnormal task termination before 
SETEXIT check is made. This routine checks for and cancels any DL/I I/O 
requests that had not completed when the task was terminated. 



DLZODP10 - Common Get Storage Routine for DL/I Online Modules 






This routine gets storage for CICS/VS (up to the maximum GETMAIN size) or 
VSE (for requests beyond the maximum CICS/VS GETMAIN size) on behalf of 
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various DL/I online routines. This routine adjusts the requested storage size and 
address to allow for the CICS/VS Storage Accounting Area and its own storage 
accounting area. 

DLZODP11 - DL/I Online Common Free Storage Routine 

This routine returns storage obtained by using DLZODP10. 
DLZERMSG - DL/I Online Message Writer 

The following processing occurs: 

• The DL/I error code is extracted from the active PST or from a parameter list 
pointed to by register 1. 

• CICS/VS storage is acquired. 

• The appropriate DL/I message text is generated using DLZMMSGT and 
logged to destination CSMT via CICS/VS Transient Data Management and to 
the operator's console. 

• Control is returned to the calling routine. 

If an error occurs while writing to transient data, an ABEND indicator is placed in 
the TCA and control is returned to the calling routine. 

DLZOVSEX - VSAM EXCP EXIT Processor 

This routine prevents the CICS/VS partition from being put into a WAIT state due 
to DL/I initiated VSAM I/O. It does this by issuing a CICS/VS WAIT instead of 
letting VSAM issue a VSE WAIT. The EXCP exit processor receives control 
directly from VSAM after each SVC resulting from a GET or PUT call from the 
buffer handler. DL/I checks the ECB for completion of the I/O request. If the 
request is incomplete, the CICS/VS environment is re-established and a CICS/VS 
task control wait is issued in behalf of the current task. If the ECB was previously 
posted or the event completion has caused the task to be removed from the wait 
condition, control is returned directly to VSAM via register 14. 

DLZFSDPO - DL/I Formatted System Dump Program / x 

The batch and online nucleus programs use this module to dump DL/I control ^ ^ 

blocks. 

Entry Interface - DLZFSDPO 

\ This module interfaces with DLZBNUCO in batch and DLZODP02 in online. 

Exit Interface 

This module returns control to caller. 

Entry Register Contents 

Rl SCD address 

R13 Save area address #^ 

R14 Caller return address i 

R15 Module entry point address 
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DLZFTDPO - DL/I Formatted Task Dump Program 



This module formats DL/I task control blocks and writes them to CICS/VS dump 
data sets whenever this module is linkedited with the online nucleus and an 
application program scheduled to a DL/I data base ABEND. 

If the DL/I system terminates abnormally without the CICS/VS system 
abnormally terminating, this module executes for each DL/I task active at DL/I 
ABEND. 

Entry Interface - DLZFTDPO 

This module is called by DLZODP06. 

Exit Interface 

This module returns control to DLZODP06. 

Entry Register Contents 

R6 System TCA address 

R12 User TCA address 

R13 CSA address 

R14 Caller return address 

R15 Module entry point address 



DLZCBDPO - DL/I Formatted Control Block Program 






This module is a collection of subroutines that build a list of addresses that are used 
to print DL/I control blocks. 

Entry Interface - DLZCBDPO 

This module interfaces with DLZFSDPO and DLZFTDPO, the formatted dump 
programs. 

Exit Interface 

This module returns control to the caller. 

Entry Register Contents 

Rl 1 Address of desired subroutine 

R14 Caller return address 

R 1 5 Module entry point address 



Control blocks 


ACB 


PDIR 


ACT 


PPST 


BFFR 


PSDB 


BFPL 


PST 


DDIR 


RIB 


DIB 


RPCB 


DMB 


RPDIR 


EIPL 


SBIF 
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FDB 


SCD 


FERT 


SDIB 


FLD 


SSA 


FSB 


SSAP 


PATH 


SSAX 


PCB 


UIB 


PDCA 
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DLZDLAOO - Call Analyzer 



The call analyzer module is used for initiation of all data base calls. It receives 
control from the DL/I common data base call routine (DLZCOM01) in the 
CICS/VS-DL/I region or from the batch application program request handler 
(DLZPRHBO). It receives control from application program control (DLZPCCOO) 
at termination of a DL/I batch partition or online^ task termination (DLZODP01) 
in a CICS/VS-DL/I partition. 

For internal DL/I calls to update an index data base, this module (DLZDLAOO) 
receives control from the index maintenance module (DLZDXMTO). 

The call types handled by the call analyzer module can be divided into two groups: 
(1) normal data base calls, and (2) special control calls, which are sometimes 
referred to as 'pseudo' calls. The special calls are GSCD, get SCD address; TERM, 
write all buffers altered by that user; and UNLD, write last records for simple 
HSAM, HSAM, simple HISAM, and HISAM load or write all HDAM and HID AM 
data base buffers altered by that user and close all data sets in the system. In the 
online environment, GSCD calls are processed by DLZCOM01 and passed to the 
call analyzer module. 

The primary functions of the call analyzer are: 



Test the first parameter in the call list for a valid four-character function and 
encode this into a one-byte function code. 

Test the second parameter in the call list for a valid PCB address and store the 
PCB address in the PST. 

Store the third parameter in the call list in the PST. This is the user's I/O area 
address. 

Verify the format of all segment search arguments (SSAs) in the call list and 
fill in the corresponding level table entry for the SSA in the call. 

Do required checking based on call type and SSAs. 

Test for field level sensitivity when processing SSAs and set on bit if present. 
Call DLZCPY10 to map user's view to physical view if necessary. 

Do sequence checking when loading a data base. 

Pass control to the proper action module to process the call. 






v^ 
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If a data base call requires the VSAM control blocks or SAM DTF representing the 
files within a data base to be opened, the analyzer calls upon the DL/I open/close 
module (DLZDLOCO) to perform the data management open for all files which 
may be needed for that PCB. The DL/I open/close module is called when the 
UNLD call is received to close all DL/I data bases opened in the batch partition. 

During normal processing of the SSA, when an SDB has been located for the 
segment, a test of the SDB will be made to determine if field level sensitivity has 
been specified (bit SDBFSB set on in field SDBXFL). If it has, an indicator will be 
set in the JCB, signifying that at least one segment has field level sensitivity (bit 
JCBFLS set on id field JCBLVT). 

When processing a qualified SSA, a check is made to determine if field level 
sensitivity has been specified for the segment. If it has, the FSB chain is scanned to 
see if the field name exists. If the field name does not exist or if the FSB is not 
flagged as an allowable field, a return code of 'AK' (invalid field name in call) is 
stored in the PCB and return is made to the caller. 

If the field name is found and it is an allowable field, then qualification is set in the 
level table based on information in the FSB (qualification on data or key). 

When the Call Analyzer determines that at least one segment has field level 
sensitivity, it will no longer do the processing to determine the offset of the 
segment in the user's I/O area (entry in LEVUSEOF will not be initialized by the 
Call Analyzer). 

Prior to calling the insert, replace, or retrieve (only if called on behalf of insert) 
action modules, if the field level sensitivity indicator has been set in the JCB, the 
Call Analyzer will exit to DLZCPY10 to map the user's view to the physical view. 
At this point,the field level sensitivity indicator in the JCB will be reset. Any error 
passback from DLZCPY10 will be detected and exit will be taken to the Program 
Request Handler. 

The field level sensitivity indicator will also be reset if an error is detected while 
processing the SSAs. 

Control Blocks - DLZDLAOO 

PST 

PDIR 

PSB 

DDIR 

DMB 

PCB 

JCB 

Level table 

SDB 

FDB 

FSB 

Register Contents 

Rl PST address 

R 1 3 Save area address 

R14 Return address 

R15 Entry point address 
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Interfaces - DLZDLAOO 

Receives control from DLZPCCOO, DLZODP00, and DLZPRHBO. 

Passes control to DLZDLROO, DLZDLDOO, DLZDDLEO (DL/I action modules): 

These modules need not save the analyzer's registers. They can return to the 
analyzer's entry point plus an offset stored in the SCD. 



Call to DLZDLOCO - DL/I open/close: 

PSTFNCTN has open function 
PSTDBPCB has address of the PCB 

Call to DLZDBHOO - buffer handler: 

PSTFNCTN is PSTPGUSR (X'07') 

Call to DLZCPY10 - field level sensitivity copy 

DLZDLOCO - Open/ Close 



The PSTFNCTN byte in the PST determines the type of operation to be performed 
by DLZDLOCO. 

• PSTOCDCB (X'10') - Only one ACB is opened/closed. It is located by DSG 
address (PSTDSGA). 

• PSTOCPCB (X'02') - For PROCOPT = L or LS one data base is opened. 

For PROCOPT # L or LS: 

All SDBs of that PCB are scanned and all referenced data bases are opened, 
that is, index data bases and logically related data bases are opened/closed 
with this call. 

• PSTOCDSG (X'40') - One or two (HISAM) data bases are opened/closed. 
The ACB is located by DSG address (PSTDSGA). 

. PSTOCALL (X'04') 

- For open: 

All ACBs specified for initial opening are opened (CICS/VS online control 
region only). 

— For close: 

All ACBs in the system are closed. 









The function of module DLZDLOCO is to open and close the DL/I data bases in 

either the CICS/VS online control region or the batch partition. VSE open/close 

macros are used to open and close data sets. DLZDLOCO opens/closes VSAM 

ACBs for all data base organizations besides HSAM and simple HSAM, where 

DTFs are used. For simplicity the term ACB is used in the following description 

where ACB or DTF would be correct. For a HISAM data base with all functions, 

except for PSTOCDCB, both the KSDS and ESDS are opened/closed. 4 



\,J 
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C 
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• PSTOCDMB (X'Or) - The ACBs of one DMB are opened/closed. The DMB 
directory address is passed in register 2. 

DLZDLOCO compares the following values specified in DBD generation with the 
VSAM catalog entries for a data base: 

• Control interval size 

• Key length (KSDS) 

• Relative key position (KSDS) 

• Highest RBA used in the data base based on the PROCOPT. For example, 
PROCOPT=L requires an empty data base (high RBA=0), while a data base 
must contain data if PROCOPT/L (high RBA>0). 

For HISAM, HID AM, and HDAM data bases, the first control interval of the 
VSAM ESDS is reserved for the DL/I control record. DLZDLOCO maintains this 
record. 

• If PROCOPT=L or LS, space is acquired for one control interval and the 
DL/I control record is constructed. The buffer handler (DLZDBHOO) is called 
to write the DL/I control record. 

An open record, code X'2F\ is written to the log file whenever a data base is 
opened. If the open call is successful, bit zero (JCBOPEN) of the JCBORGN byte 
equals one (PCB call); and bit zero (PSTOCBAD) of the PSTFNCTN byte equals 
zero. 

All PSDBs of a DMB are scanned for variable length segments with the 
edit/compression routine. All edit/compression routines that have TNIT specified 
are called after "open" and before "close". 

Register Contents 

Rl PST address 

R2 DDIR address if it is a close DMB call 

R 1 3 Save area address 

R14 Return address 

R 1 5 Entry point address 

Control Blocks - DLZDLOCO 

• DL/I control record - DLZRECO 

• PSTFNCTN field of the PST: 



Bit 


Value 


Meaning 


1 


1 


Process DSG 


2 


1 


Open for load 


3 


1 


Process specific ACB 


4 





Close call 




1 


Open call 
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Bit Value Meaning 

5 1 Open/close all DMBs 

6 1 Open/close a PCB ,f~\ 

7 1 Open/close a DMB \J^ 



DLZDLDOO - Delete /Replace 



The delete function for HDAM or HID AM data bases includes a check to ensure 
that delete rules stated for the DMB will not be violated. If logically related 
segments with a physical delete rule exist in the data base within the physical 
hierarchy starting with the segment to be deleted, a scan is made of all the 
segments to ensure that they include no segment which has not been logically 
deleted. 

A scan of the data base from the point of deletion is performed. During this scan, 
each segment is accessed twice: once on the way 'down', and again on the way 
'up'. While scanning 'down', any segment in a logical relationship is inspected to 
determine its eligibility for deletion and to terminate as many logical relationships 
as possible. In some cases (for example, the last logical child for a logical parent 
which has already been deleted through its physical path), the deletion of all, or a 
portion of, the logically related data base record is required. In this case, the delete 
action is expanded to perform the total delete function (except for the checking) 
for the new data base record. Then the scan of the original data base record is 
continued at the point of exit. 



X"~~X 



This module performs the logical actions involved in replacing or deleting segments 
in a DL/I data base for all organizations, except HSAM (which has no delete or 
replace). 

The replace function checks to ensure that the key field of the segment was not 
inadvertently altered and that the replace rules were not violated. If the segment to 
be replaced is indexed, this module interfaces with the DL/I index maintenance 
module (DLZDXMTO). 

The first check made upon entry is a key check of the contents of the PCB key 

feedback area to the key of the segment in the user's I/O area. If there are any 

changes, a 'DA' status code results. Next the segment is retrieved and the V_ 

sequence fields are checked for any changes. If any changes occurred, a 'DA' 

status code again results. Then the remainder of the data is checked for changes. 

If there were no changes, a blank status code is returned. If there were changes, 

the data is replaced. 

If the segment to be replaced is in an HDAM or HID AM data base and the 

segment is variable length, the segment and its prefix may be separated. The 

separation of data is determined by the min-byte value of DBDGEN and the 

current size of the segment. Also in this regard, if the segment was previously /f 

separated from its prefix prior to a replace call, the replace will attempt to rejoin V- 

data and prefix. 

The delete function for a HIS AM data base reads the segment to be deleted. If the 
organization is simple HISAM, the buffer handler is called to issue a VSAM 
ERASE. Otherwise, the segment is deleted by setting the HISAM segment delete 
bit. In addition, if this is the root segment, the record delete bit is also set. 



z«if '~'\ 
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When scanning 'up', an interface with index maintenance (DLZDXMTO) is made if 
the segment is indexed. Physical pointers are adjusted to bypass any removable 
segments (HDAM or HID AM segments which are no longer required) whose space 
is released by interfacing with the space management module, DLZDHDSO. For 
nonremovable segments (segments required to remain because of existing logical 
relationships), a logical delete bit is set to indicate the status of the segment. 

A work area is obtained from the DL/I buffer pool to maintain the concatenated 
key and position of segments in the data base record(s) being scanned during 
delete or for calls to index maintenance during replace. 

Delete /Replace Work Space Acquisition and the Work Space Prefix 

DLZDLDOO acquires space to build work area(s) from DLZDBHOO (buffer 
handler) via a PSTGBSPC call. The calculated minimum size required is indicated 
in PSTBYTNM. If the space is available, the buffer handler returns the address of 
the selected buffer in PSTDATA and its size in PSTWRK1. 

The first section of the work space contains a prefix whose format and contents are 
described in Section 5. Immediately following is the work area containing 
information concerning the segment to be deleted (or the index source segment to 
be replaced), its physical data base (HID AM or HDAM), and other segments in 
that data base record. 

If a second work area is needed because of logically related segments and the space 
remaining in the current work space is large enough, the next work area will be 
allocated in the same work space (buffer) immediately following the previous work 
area. Forward and backward chains are maintained. If the remaining space is not 
large enough, another buffer is obtained from the buffer handler and chained to 
and from the previous work space. 

Except in the case of an error condition, work areas are freed in the reverse order 
in which they were allocated. When the work area freed was the first one in the 
work space, the buffer is freed via a PSTFBSPC call to the buffer handler. 

Segment Delete Codes 

Segment delete codes utilized in the second byte of the prefix of each DL/I 
segment: 



1 



1 . . . 

.... . 1 . . 

1 . 

1 

1111 1111 



This segment has been deleted (HIS AM only). 

This data base record has been deleted (HIS AM only). 

This segment has been processed by delete or replace. 

Reserved 

This variable-length segment has its data separated from the prefix. 

This segment is no longer required by its physical parent. 

This segment is no longer required by its logical parent. 

This segment has been removed from its logical twin chain. 

This segment contains the separated data of a variable-length 

segment. 



^p*% 



Interfaces - DLZDLDOO 

This module interfaces with the following modules: 
DLZDBHOO 
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DLZDHDSO 

DLZRDBLO 

DLZDXMTO -J X , 

DLZQUEFO V|< ^ / 

Control Blocks - DLZDLDOO 

• Delete workspace prefix 

• Delete work area. 

Entry Register Contents 

Rl Contains the address of the PST 

R13 Points to the current save area 

R14 Contains the DL/I analyze call function module (DFSDLAOO) return point 

R15 Contains the module entry point 

Exit Register Contents /f~~\ 

Rl Contains the PST address ^^ 

R13 Points to the current save area 

R14 Contains the DL/I analyze call function module (DFSDLAOO) return point 

R15 Contains a return code (0) 

Register Contents on ABEND - in the SCD ABEND Save Area 



<0\ 



Rl 


PST address 


R2 


SCD address 


R3 


SDB address 


R4 


DMB address 


R5 


PSDB address 


R6/R10 


Work registers 


Rll 


Base - (subroutine CSECT) 


R12 


Base (main CSECT) 


R13 


Current save area 



R14/R15 Work registers 

The function of DLZDDLEO is to load HDAM, HID AM, Simple HISAM, HISAM, ^ y 

Simple HSAM, and HSAM data bases (in batch only) and insert segments into 
HDAM, HIDAM, Simple HISAM, and HISAM data bases. 

DLZDDLEO is entered from the DL/I call analyzer (DLZDLA00) on load 
requests for HIDAM, Simple HISAM, HISAM, HSAM, and Simple HSAM 
segments, HDAM dependent segments, and insert requests for Simple HISAM and 
HISAM roots. It is also entered from the retrieve module (DLZDLR00) on load 
requests for HDAM root segments, and insert requests for HDAM, HIDAM, and 
HISAM dependent segments. 

The module performs the following functions: 

A. HD AM/HID AM load/insert - 

1. Normal segment: I J 
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• Positioning: retrieve positions for inserting and loading of HDAM 
roots. For all other loading, DLZDDLEO simulates retrieve 
positioning. 

• Space for new segment is acquired using the space management 
module, DLZDHDSO. 

• The segment is moved from the user's I/O area to the buffer. 

• Prefix pointers are updated. 

• Actual write is performed by the buffer handler using VSAM. 

• Prefix pointers of twins and parents are updated. 

• The data base logger (DLZRDBLO) is called to write the new segment 
and the updated prefixes. 

• If the segment is an index source segment, index maintenance 
(DLZDXMTO) is called. 

• Exit is to the call analyzer. 
2. Concatenated segment: 

• If the destination parent already exists, and the insert rule is physical or 
logical: same as normal segment. 

• If the destination parent exists and the insert rule is virtual: the logical 
child segment is inserted as for a normal segment, data of destination 
parent are replaced afterwards. 

• If the destination parent does not exist and the rule is not physical, the 
destination parent is inserted as for a normal segment; afterwards the 
logical child is inserted as a normal segment. 

B. HISAM and simple HISAM load 

• Main storage for a logical record for key sequenced data set (KSDS) and 
for entry sequenced data set (ESDS) is acquired from the buffer handler. 

• The root and all dependent segments that fit into one logical record are 
written to the KSDS, using the buffer handler. The remaining dependent 
segments are moved to one or more records of the ESDS. 

• Pointers to those records are inserted. 

C. HISAM and simple HISAM root insert 

• A key equal to or greater than the request is made to the buffer handler. If 
the key exists and the delete bit is flagged (HISAM), the space is reused; 
otherwise a II status code is returned. If the key does not exist, main 
storage is acquired from the buffer handler and the new record is built and 
then inserted by VSAM through the buffer handler. 

• Old (if deleted) and new records are logged. 
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D. HISAM dependent segment insert 
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• If the segment fits into the record for which retrieve (DLZDLROO) has 
positioned, it is inserted by shifting the segments beyond the insert point to \~y 
the right. If the segment does not fit into the record, a new ESDS record is 

built. The segment and shifted data are inserted into the new record. If 
the shifted data does not fit into the record, a second new ESDS record is 
created. 

• Pointers to the new records are created. 

• Old and new records are logged. 
E. HSAM and simple HSAM load 

• The I/O areas allocated by batch initialization are used to move the 
segments from the user area. PUT locate is executed, whenever one I/O 

area is filled. ^ x 

Blocks and Tables - DLZDDLEO 

PST 
DDIR 
DMB 
PCB 
JCB 

Level table 
■SDB . ^ 

" FDB ; l J 

SCD ^^ 

Registers on Entry and to All Called Modules 

Rl PST 

Interfaces - DLZDDLEO 

This module calls the following modules: ^ x 

DLZRDBLO Data base logger 

DLZDBHOO Buffer handler 

DLZDHDSO Space management 

DLZDXMTO Index maintenance 

DLZQUEFO Queuing Facility 

Status Codes - DLZDDLEO 

II 

AO 
IX 
LB 
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The function of this module is to load - insert - delete the index pointer segment of 
a HID AM data base and to load - insert - delete - replace the index pointer 
segment for secondary indexes of a HDAM or HID AM data base. 

Abbreviations used throughout the module are: 

ISS Index source segment 

XDS Index target segment (indexed segment) 

XNS Index pointer segment (indexing segment) 

The following major functions are performed: 

ALL CALLS 

• Save PST information in XMAINT work area 

LOAD 
INSERT 

• Build index pointer segment in work area 

For primary indexes - take key from user I/O area. For secondary indexes - 
construct segment from SRCH, SUBSEQ and DDATA fields. For /CK fields 
use PCB-key feedback area or read parents of ISS using SDBPOSC or PP 
pointers. Call user suppression routine, if needed. 

• Build temporary blocks SDB, JCB, DSG 
INSERT 

• Build call list and SSA 

• Call analyzer 

• Take next index relationship of this ISS 

LOAD 

• Open data base, if necessary, or work data set 

• Call buffer handler to write index record or write work data set for secondary 
index 

• Take next index relationship of this ISS 

UNLD 

• Write FF-key record to all index data bases belonging to this data base 

DLET 

Call buffer handler to get old ISS 

Construct the old index pointer segment 

For /CK fields take CONCAT key from DLET work area 

Call user exit routine, to check for suppression 

Build temporary blocks 

Log POINTER CHANGE and DEL.BYTE CHANGE 

Call buffer handler to change index 
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• Take next index entry 

REPL ■O; 

• First part = DLET 

• Second part = ISRT 

ALL CALLS 

• Restore PST 

• Return to calling module 

Entries: 

Receives control from DLZDDLEO (load/insert) and DLZDLDOO 
(delete/replace) 

Register Contents /f~\ 

Rl PST address v 

R14 Return address 
R15 Start address 

PSTWRK1 LSDB of ISS for ISRT, ASTR, REPL calls 

LSDB of ROOT for UNLD call 
PSDB of ISS for DLFT call 

PSTFNCTN 'AO' Delete ^ > 

<A1' Replace (j 

'A2' Insert ^^ 
' A3' Unload 

PSTBYTNM RBA of index source segment 

Interface to called modules: 

1. DLZDLAOO (analyzer) 

Called for insert, not load mode ^ \ 

PSTIQPRM points to internal call list 
Segment name*X(keyvalue) is used as SSA 

2. DLZDBHOO (buff er handler) 

PSTFNCTN: PSTMSPUT load HID AM index 

PSTBYLCT get index target segment again 
PSTSTLEQ get index pointer segment 
PSTPUTKY index of HIDAM data base 
PSTBFALT update index of HIDAM data base 

PSTBYTNM: RBA of segment 
or 
Pointer to key to be inserted 

3. DLZDLOCO (open/close) X^J 
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DLZDLROO - Retrieve 



R2: Address of DDIR 

PSTFNCTN: PSTOCOPN + PSTOCLD + PSTOCDMB 
PSTOCOPN + PSTOCDMB 
PSTOCCLS + PSTOCDMB 

4. DLZRDBLO (logger) 

PSTWRK1 : DBLLGDLT (logical delete) 

DBLNDXC + DBLCMC (XMAINT chain maintenance) 

PSTWRK2: Old segment code and old delete byte 

Old RBA pointer 

PSTOFFST: Offset to new segment code 
Offset to new RBA pointer 

PSTBYTNM: RBA of record 

5. DLZDSEHO (work data set module) 

Is called at entry point - 12 to open work file. Return is to BALR if open not 
successful, to BALR + 4 if open successful. 

6. DLZQUEFO (queueing facility) 

Called to do any program isolation queueing necessary 

Exits: 

Back to calling module. 
Control Blocks - DLZDXMTO 

• Index work area - DLZXMTWA 

• SSA for the XMAINT call to the analyzer. 



The DL/I retrieve phase is responsible for retrieval of all segments, independent of 
physical data base organization. When an application program requests the 
retrieval of a segment, this phase (DLZDLROO) gains control from the DL/I call 
analyzer, DLZDLAOO. The analyzer has validity-checked the parameters in the 
application program's retrieval request. The analyzer has also placed this 
parameter information for retrieval in the DL/I control blocks. 

Based upon this information, the retrieve phase calls the DL/I buffer handler 
module, DLZDBHOO, which controls physical I/O operations, to read the block 
containing the desired segment. Once the desired block exists in the data base 
buffer pool, its presence is made known to the retrieve phase. 

It is the responsibility of the retrieve phase to "deblock" segments within the block. 
Once the desired segment is located, the retrieve phase places the location and 
length of the segment in the PST control block associated with the application 
making the retrieve request and returns to the DL/I call analyzer. Once a 
particular segment within a data base is retrieved for a particular application 
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program, "position" is established within the data base for the application program. 

This "position" is subsequently used to move sequentially through the data base if 

the application program issues GN and GNP calls. f 



"^ 
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If the block containing the segment to be retrieved already exists in the data base 
buffer pool, the request from the retrieve phase to the buffer handler results only in 
the address of the desired data being returned to the retrieve phase. No physical 
I/O is performed. In the case of HISAM, if a retrieve request involves inspection 
of several segments within a record, the retrieve phase requests only the first of 
these from the buffer handler and finds the remaining segments itself, utilizing 
position information. Positioning information for each application program and 
each data base is maintained in the DL/I control blocks which are an extension of 
the PCB (that is, JCB, LEVVTAB, and LSDB). 

In addition to servicing all data base retrieval requests, the retrieve phase performs 
"positioning" functions for all segment insertion. In this case, the retrieve phase 
receives control from the DL/I call analyzer module on an insert call. Prior to the 
insertion of a new segment occurrence, DL/I must insure that the segment does 
not already exist in the data base. It is the responsibility of the retrieve phase to 
retrieve the block where the segment to be inserted may already exist. If the 
segment does not already exist in the data base, the block retrieved is normally 
used for segment insertion. Once the desired physical block is retrieved and 
positioning for segment insertion within the block is established, control is passed 
to the DL/I load/insert module, DLZDDLEO. If the data base organization is 
Simple HSAM or HSAM, the retrieve phase performs the I/O (Get/Put) rather 
than calling the buffer handler. 

HID AM root retrieval by key (qualified GU, GN), results in two buffer handling 
requests. The first retrieves the index segment as any HISAM root. The second 
uses the RBA of the HID AM root in the index segment to get the corresponding 
root segment. The position of the index segment is saved in a special SDB. 

Retrieval of segments addressed by secondary indexes is performed in the same 
manner, as far as possible, as the retrieval of a HID AM primary root segment. 
(The SDBs are generated so that the index looks like a primary index and the index 
target segment like a HID AM primary root.) The most important differences are: 

• The layout of the index pointer segment is user dependent and is different from / 
that of a primary index. ^ 

• The sequence field of a secondary index is not necessarily part of the target 
segment and may be in a dependent segment. 

Variable length segments are handled by the routine VLRT which provides an exit 
to a user routine to handle any necessary data expansion after calling the normal 
buffer handler interface (SETL). 

Retrieval of logically related segments requires special handling. The retrieved 
segment (the concatenated segment) consists of the logical child (that is the 
concatenated key and the intersection data) and the physical or logical parent 
(destination parent). Since the SDBs always reflect the user's view of the data 
base, the same program logic is used whether the segment to be concatenated to 
the logical child is a physical or a logical parent. The concatenated key of the 
destination parent is constructed using the physical or the logical parent pointer of 
the logical child and the physical parent pointer of the destination parent. For 



r > 
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ISRT calls the concatenated key in front of the input data is used to position on the 
destination parent. All positions on the physical path to the destination parent and 
on the twin chain of the destination parent are maintained. 

Command Codes Affecting Retrieval 

D - The segment data is moved when the level table is updated and not at return 
to the analyzer. 

L - The segment skip routine is employed to skip to the last occurrence. 

T - The RBA specified in the SSA is moved to the next position pointer location 
in the appropriate SDB and an unqualified GN is performed. 

F - For a GN (GNP) call, the same logic is employed to retrieve the first 
occurrence as for a GU call. 

Module Layout - DLZDLROO 

This phase consists of 60 subroutines, a main entry routine (DLZDLRO), a main 
exit routine (DLZDLR1), and a general linkage and maintenance support routine 
(DLZRLNKD), each of which is preceded by a description in the form input - 
processing - output. The subroutines are linked using macro DLZRLNK and the 
following macros (refer to the comments in the DLZRLNK source program 
listing): 

DLZRHDR First macro of a subroutine; generates DSECTs, EQU, and 

module identification. 

DLZRTLR Last macro of a subroutine. 

DLZRCLL Generates code to transfer control to a subroutine using 

DLZRLNK. 

DLZREXT Generates code to return control to a calling subroutine using 

DLZRLNK. 

The phase is supplied as eight modules. The first seven, DLZDLRAO to 
DLZDLRGO, contain the subroutines and the eighth, DLZDLNKD, contains the 
linkage and maintenance support routine that is generated using the macro 
DLZRLNK. The first module, DLZDLRAO, also contains the routines DLZDLRO 
and DLZDLR1. The distribution of the subroutines within the CSECTs contained 
in the modules DLZDLRAO to DLZDLRGO is arbitrary and can be changed at 
will, necessitating only that the affected modules be reassembled. 

Maintenance Support - DLZDLROO 

The module DLZRLNKD contains facilities to dynamically dump control blocks 
and I/O buffer sections. The extent and frequency of the dumping is controlled by 
DLZRLNK macro parameters or control fields in the PST as described in the 
DLZRLNK source program listing. 

Interfaces - DLZDLROO 

This phase interfaces with the following modules: 
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DLZDDLEO Load/insert 

DLZDBHOO Buff er handler _^ 

DLZQUEFO Queuing facility f 

Entry Register Contents and Return 

RO SCD 
Rl PST 
R2 PCB 

Register Contents During Execution * 



RO 


Work 


Rl 


Work 


R2 


Work, PCB 


R3 


JCB 


R4 


LEVTAB 


R5 


SDB 


R6 


Segment address 


R7 


PST 


R8 


DSG part of JCB 


R9 


Byte or record location of SEGM in data base 


RIO 


Work, FLD 


Rll 


Base register for linkage routine DLZRLNKD 


R12 


Base register 


R13 


Save area 


R14 


Work 


R15 


Work 



/ff "\ 



DLZDHDSO - HD Space Management ^^ 

Module DLZDHDSO allocates and maintains free space on direct access storage 

devices for storage of DL/I segments in the hierarchical direct organizations 

(HDAM and HID AM). This space is managed through the use of free space 

elements (FSEs) in each block of each data set of a data base and a bit map. The 

bit map describes blocks that have at least one FSE which can contain the largest 

segment in the data set. There is one bit map per data set consisting of one or 

more blocks distributed over the data set. x 



The routines in module DLZDHDSO perform the following functions: 

| DLZDHDSO contains the entry point for the combined module. It saves 

registers, initializes the work words in the PST, and branches to 
the appropriate module. 

| GETSPACE consists of a 'driver' for all subfunptions that may be invoked to 
find space. It uses one byte of the work space to control 
invocation. This section also controls formatting for HDAM 
when the root anchor point is beyond the current end of the data 
set and formatting of new bit map blocks, if necessary. 

1 FRESPACE returns to free space the space occupied by a segment being 

deleted. It logs the deletion of the segment and updates the bit 
map if required. 



J 
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SRCHBLK searches the block passed to it for an FSE that satisfies the 

current request. If none is found, control returns to the calling 
module. If the request can be satisfied, the return is directly to 
the invoker of DLZDHDSO. 



SRCHPOOL searches the DL/I buffer pool for a block in the range passed to 
it. If one is found, module SRCHBLK is called to search it. If 
the block is rejected, the search continues to the end of the pool, 
and control is returned to GETSPACE. To avoid changing the 
position of buffers on the buffer pool use chain, online and batch 
are treated differently. In a batch environment, the buffer to be 
searched is passed to SRCHBLK and may be used without being 
requested from the buffer handler. In a DL/I online 
environment, the buffer is passed to SRCHBLK. If the request 
can be satisfied from it, the buffer is then requested from 
DLZDBHOO and again passed to SRCHBLK for actual 
alteration. 

SRCHBTMP searches the bit map for a bit that is a one and is also in the 

specified range. If one is found, its corresponding block number 
is returned to GETSPACE. If all bits are zero, PSTNOSPC is 
returned to GETSPACE. The map search functions include 
creation and formatting of new bit map blocks, if necessary. To 
further proximity of space for related segments, whenever 
possible, the search within a given range is done from the center 
to the outer ends of that range in both directions at the same 
time. 



( 



CALCSRLM 



( 



calculates search limits for GETSPACE. A switch is used to 
determine the appropriate limit - track, control area, delta control 
areas. The limits of the previous scan are used to break the range 
into two subranges. This prevents the re-requesting of blocks 
that were rejected during earlier scans. 

determines the block number for the bit map block appropriate to 
the block number passed to it. It also determines the relative bit 
position in the bit map block of the block number passed to it. 



turns the appropriate bit ON or OFF according to the entry point 
involved. The log is also called to reflect the change. 

tests to see if the device containing the data base is actually an 
FBA device if it was specified as such, and, if it is, calculates the 
CIs per track and per cylinder and the scan value in cylinders 
equivalent to the number of FBA blocks specified during DBD 
generation. These values are stored in the DMB for later use. 



FORMAT formats a new control interval. Builds initial FSEs and root 

anchor points. 



BITMPLOC 



BITMPON 
BITMPOFF 



DEVCHARI 



V^ 



Interfaces - DLZDHDSO 

The following modules are called by DLZDHDSO: 
DLZDBHOO Buff er handler 
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DLZRDBLO Data base logger 
Calling Sequence 

Rl FST address 

PSTDSGA DSG address for appropriate file (all calls) 

PSTFNCTN 

PSTGTSPC 01 Get space 

PSTFRSPC 02 Free space 

PSTBTMPF 03 Turn of f bit in bit map 

PSTGTRAP 04 Get space close to root anchor point 

PSTRBN RBN of segment to get space close to - PSTGTSPC 

RBN of segment to be deleted - PSTFRSPC 
BBBR - PSTGTRAP 
where BBB = relative block number, 
R = root anchor point number 

PSTBLKNM Block number whose bit is to be turned off - PSTBTMPF 

R5 DMBPSDB - Address of PSDB of subject segment 

R14 Return point 

R15 Entry point - DLZDHDSO 

On Return 

R15 - No errors occurred 

4 - Error has occurred; check PSTRTCDE 

PSTRTCDE 4 - RBN is beyond the end of the data set 
8 - I/O error 
C - No space in data set 
1C - Insufficient space in buffer pool 

For other return codes, see "PST - Partition Specification Table" in " Section 5: 
Data Areas". 



DLZDBH00 - DB Buffer Handler 

The primary functions of module DLZDBH00 are: 



1. To satisfy requests for buffer space for the processing of the data blocks of HD 
data bases. For Simple HISAM and HISAM data bases and for the index of 
HID AM data bases, the VSAM buffer management is used. 

2. To issue I/O requests to VSAM whenever data must be read or written. Thus, 
the buffer handler provides an interface between the DL/I action modules and 
VSAM data sets. 

3. Whenever possible, to satisfy requests for data base segments and or records 
from data currently available in its buffer pool without issuing an I/O request. 



4" ~\ 



,4' ' \ 
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For this purpose, data is retained in the pool as long as possible. Various 
features such as use chains and alteration flags are employed so that a 
centralized buffer management is facilitated for concurrent use by all 
application programs. 

The buffer handler satisfies the following requests as indicated by PSTFNCTN: 



1 . For processing HDAM, HID AM, or HISAM ESDS: 



Symbol 
Function 

PSTBYLCT 



Hex 

Function 

02 



Description 

If the request is issued for an HDAM or HID AM 
data base, the buffer handler retrieves the control 
interval whose relative byte number is stored in 
PSTBYTNM. The relative byte number in 
PSTBYTNM is first converted to a VSAM 
control interval number and an offset within the 
control interval. 



If this control interval is not in the buffer pool, 
buffer space is obtained in the buffer pool, the 
buffer which will be used is written, and the 
control interval is read into this buffer by a 
VSAM get call. 

If the requested control interval is already in the 
buffer pool, no read is done and the address of 
the buffer containing this control interval is 
passed back to the caller. 

If the request is issued for a HISAM ESDS data 
base, the buffer handler only issues the proper 
VSAM call for retrieving the record identified by 
the RBA which has been passed to the buffer 
handler in PSTBYTNM. 



( 



PSTBKLCT 



01 



The same as PSTBYLCT for an HDAM or 
HID AM data base except that a VSAM control 
interval number is passed to the buffer handler in 
PSTBLKNM. 



PSTBYALT 



06 



A locate relative byte number (refer to 
PSTBYLCT) is done first and then the buffer 
which contains the contains the control interval is 
marked as altered by this specific user. 
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Symbol 
Function 

PSTBFALT 



Hex 
Function 

05 



PSTGBSPC 



PSTFBSPC 



03 



04 



PSTPGUSR 



07 



PSTBFMPT 



PSTWRITE 



04 



08 



Description 

If the request has been issued for an HDAM or 
HID AM data base, the buffer whose prefix 
address is stored in PSTBUFFA is marked 
altered. 

If, however, the request applies to a HISAM 
ESDS, the proper VSAM call is issued to write 
the record immediately. 

A buffer with the length specified in 
PSTBYTNM (possibly rounded to the next 
multiple of 512 bytes) is provided to the caller. 

A buffer identified by a DMB number, ACB 
number, and control interval number in 
PSTDMBNM, PSTACBNM, and PSTBLKNM is 
freed, that is, it is marked empty and put on the 
bottom of the use chain. 

All the buffers which have been modified by a 
specific user are written. All nonreusable buffers 
held by this user are marked empty and put to the 
bottom of the use chain. The bit representing 
this user is turned off in the user mask of all 
permanent write error blocks. 

If the purge request is on behalf of a CHKP 
function-call, all DMBs are scanned for index 
data bases and ENDREQs are issued to ensure 
that all VSAM buffers are written to the data 
bases. 

All buffers of one data base or certain buffers of 
a data base are marked empty and put on the 
bottom of the use chain. 

A logical record is added to a HISAM ESDS. 






v x y 






4' v 



2. For processing HIDAM index, Simple HISAM or HISAM KSDS: 
a. Accessed by VSAM RBA 



o 
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Symbol 
Function 

PSTBYLCT 



PSTBFALT 



PSTERASE 



Hex 
Function 

02 



05 



0A 



Description 

Retrieve the VSAM KSDS record by the RBA 
which is in PSTBYTNM. 

Write the VSAM KSDS record by the RBA 
which is in PSTBYTNM. 

Delete the VSAM KSDS record identified by the 
RBA which is in PSTBYTNM. 



b. Accessed by key 



Symbol 
Function 

PSTSTLEQ 



PSTGETNX 



Hex 
Function 

09 



OB 



Description 

Retrieve the VSAM KSDS record whose key is 
equal to or greater than the key whose address is 
stored in PSTBYTNM. 

Retrieve the next sequential VSAM KSDS 
record. 



( 



PSTSTLBG 



PSTPUTKY 



PSTMSPUT 



oc 



0D 



0E 



Retrieve the first VSAM KSDS record in a data 
base. 

Insert a record by key directly into a VSAM 
KSDS. 

Insert a record which is in ascending key order 
into a VSAM KSDS. 



The buffers which are used for satisfying these requests are provided by VSAM 
buffer management. The buffer handler provides VSAM control blocks (ACB, 
EXLST, and RPL) to VSAM data management when issuing the required VSAM 
action macro. 

The module DLZDBH00 consists of three CSECTs: 

DLZDBH00 - Contains the code for the functions 

PSTBYLCT 
PSTBKLCT 
PSTBYALT 
PSTBFALT 
PSTGBSPC 
Maintenance of write chain and use chain 

DLZDBH02 - Contains the code for the functions 

PSTSTLEQ 

PSTGETNX 

PSTSTLBG 

PSTPUTKY 

PSTMSPUT 
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PSTERASE 
PSTWRITE 

Additionally, this CSECT contains the code required for preparing and 
issuing of VSAM calls and for processing feedback information by VSAM. 

DLZDBH03 - Contains code for the functions 

PSTBFMPT 
PSTPGUSR 

In addition, this CSECT contains the subroutines for providing an 
enqueue/dequeue function. 

Write Chain 

The new control intervals of a HID AM or HDAM data base are chained together 

on a write chain in ascending order of their control interval numbers. If one of the ^ X 

buffers on the write chain has to be written, all buffers on the chain are written. v, J 

There is a write chain for every data base. It is maintained by storing the prefix 
numbers of the prefixes of the next higher and the next lower buffers in bytes 18 
and 19 of the prefix. A bit switch in byte 7 of the prefix (X'80') is on if a buffer is 
on a write chain. 

Use Chain 

All buffers are chained together in the order of their usage. This use chain is if X 

physically separated from the buffer prefixes and consists of one-byte elements \i 

containing relative numbers of prefixes. The order of the buffers on the use chain 
is indicated by the physical order of these use chain elements. 

There is one use chain area per subpool. Each use chain area has a maximum of 32 

entries. The maintenance of the use chain involves putting a use chain element on 

the bottom or on the top of the use chain as follows. The contents of the use chain 

element which is to be moved are saved. Then all use chain elements located 

behind the element to be put on top, or located before the element to be put on the 

bottom, are moved to the address which is one byte lower than the load address (or d '\ 

one byte higher if an element is placed at the bottom). The saved element is then \_V 

stored at the top or the bottom of the chain. 

ENQ/DEQ Subroutines 

Since transactions in an online environment may be processed in multi-thread 
mode, the buffer handler may have to synchronize and/or delay requests for 
buffers and/or buffer space. This is accomplished in two subroutines which 
perform ENQ/DEQ type functions. The following fields are used by the 
ENQ/DEQ routiner 
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C 



( 



Function 

ENQ/DEQ existing 
control interval (CI) ID 
ENQ/DEQ pending CI 
ID 

ENQ/DEQ subpool 



ENQ/DEQ matrix 



Label 



Control block 



BFFRPST Buffer prefix 

FPSTEXCI PST prefix 

BFFRNPST Buffer prefix 

PPSTPECI PST prefix 

PPSTCHAI PST prefix 

SUBNQFI Subpool information 

SUBNQLA table 

PPSTSUPO Subpool information 

table 

PST prefix 

BFPLPSIL Buffer pool prefix 

BFPLFSIF Buffer pool prefix 

BFPLPSIL Buffer pool prefix 

PPSTMATR PST prefix 



The ENQ/DEQ routines use the field BFPLNQW1 in the buffer pool prefix as 
work space. 

Normally, the resources to be enqueued are the existing contents of a buffer 
(existing CI ID) or planned contents of a buffer (pending CI ID). Under certain 
circumstances, other resources may be enqueued. 

Enqueuing of a resource consists of the following steps. 

If the resource is available: 

1. Store the PST ID into a field of the resource reserved for this purpose (that is, 
BFFRPST, BFFRNPST, SUBNQFI, BFLPSIF). 

2. Store the resource ID (for example, the buffer number) into a field in the PST 
reserved for this purpose (that is, PPSTEXCI, PPSTPECI, PPSTSUPO, 
PPSTMATR). 

3. Indicate successful ENQ with a return code of 4 and return to caller. 
If the resource is not available: 

1. Chain with appropriate chain fields the current PST behind the last PST 
already waiting for this resource. 

2. Return with a return code of 8 to indicate that a wait condition exists. 
Dequeuing of a resource consists of the following steps. 

1. Remove the resource ID from the appropriate field in the current PST. 

2. Remove the PST ID from the appropriate field in the resource. 

3. If the PST chain fields indicate that no other PST was waiting on this resource, 
return to caller. 

4. If another PST was waiting on this resource: 

a. Move the waiting PST ID into the resource. 



Section 3. Program Organization 3-47 



J 



Licensed Material — Property of IBM 

b. Post the waiting PSTs and unchain the current PST. 

c. Return to caller. ^ ^ 

For performance reasons, resources contain, in addition to the owning PSTs ID, \S 

the ID of the last PST in the wait chain for this resource. These IDs are also 
maintained by the ENQ/DEQ routines. 

The following types of ENQ requests may occur: 

ENQ existing CI ID When a task either wants to write a buffer or wants t& 

get posted when reading into or writing a buffer is 
finished. 

ENQ pending CI ID When a task wants to reuse a buffer in the buffer pool 

or when a task wants to get posted when the creation 
of a pending (i.e., new) CI is finished. 

ENQ subpool When there is currently no buffer prefix in a subpool /f^\ 

allowing a pending CI ID. 

ENQ extension queue When a new block past the VSAM SEOF is created, 

the task must wait until processing of previous tasks 
that created new blocks have been processed. 

Control Blocks - DLZDBHOO 

PST 

PPST 

DDIR 

DMB 

DSG 

SCD 

BFPL 

BFFR 

SBIF 

Interfaces - DLZDBHOO 

DLZDBHOO uses the PST for communication from and to the calling modules and 
for work space. The DSG is used to obtain the DMB number and ACB number of 
the data set which applies during a request. The address of the buffer pool prefix is 
obtained from the SCD. The address of the buffer prefix area is obtained from the 
buffer pool prefix. VSAM is invoked for all I/O. 

In order to make sure that writing of log information is always ahead of updating a 
data base, the buffer handler may branch to a specific entry point of DLZRDBLO 
or DLZRDBL1. (Refer to the description in the paragraph about DLZRDBLO and 
DLZRDBL1.) 

DLZDBHOO issues the RELPAG macro for buffers that are marked empty. 

Buffer Handler Functions and Required Fields 

The following chart illustrates which fields must be supplied to the buffer handler 
(input) for each specific function and which fields are filled in by the buffer 
handler (output) on completion of the function. 



4 - 
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1. Functions used to access a HID AM or HDAM data base 



Function 


Input 


Output 


Field 


Contents 


Field 


Contents 


PSTBYLCT 


PSTBYTNM 


Relative byte number of desired segment 


PSTDATA 
PSTOFFST 


Core address of desired segment 
Offset of segment from beginning of 
control interval 


PSTBKLCT 


PSTBLKNM 


RBA of desired segment 


PSTDATA 


Core address of desired segment 


PSTBYALT 




See PSTBYLCT 




See PSTBYLCT 


PSTBFALT 


PSTBUFFA 


Address of buffer prefix which is to be 
marked altered 






PSTGBSPC 


PSTBYTNM 


Number of desired bytes 


PSTDATA 


Address of provided buffer 


PSTFBSPC/ 
PSTBFMPT 


PSTDMBNM 
PSTACBNM 
PSTBLKNM 


DMB 

ACB 

Control interval RBA 

All or part of buffer identifier may be 

processed. 






PSTPGUSR 


PSTDMBNM 
PSTACBNM 
PSTBLKNM 
PPSTID 


DMB 
ACB 

Control interval RBA User identifier Any 
or all of these may be passed. 







2. Functions used to access a HISAM ESDS 



Function 


Input 


Output 


Field 


Contents 


Field 


Contents 


PSTBYLCT 
PSTBFALT 
PSTWRITE 


PSTBYTNM 
PSTBYTNM 
PSTDATA 

PSTBUFFA 


RBA of the logical record to be read 
RBA of the logical record to be written 
Address of work area containing the 
logical record 
Prefix Address 


PSTDATA 
PSTBLKNM 


Address of the record within the buffer 

RBA of the record added to the ESDS 
as calculated by VSAM 



3. Functions used to access a KSDS by key (Simple HISAM, HISAM or HID AM 
index) 



Function 


Input 


Output 


Field 


Contents 


Field 


Contents 


PSTSTLEQ 


PSTBYTNM 


Address of the field which contains 
search argument 


PSTBYTNM 
PSTDATA 


RBA of the logical record retrieved 
Core address of record 


PSTSTLBG 






PSTBYTNM 
PSTDATA 


RBA of the logical record retrieved 
Core address of record 


PSTGETNX 
PSTPUTKY 


PSTDATA 
PSTBUFFA 


Address of work area 
containing the logical 
record 
Prefix address 


PSTBYTNM 
PSTDATA 


RBA of the logical record retrieved 
Core address of record 


PSTMSPUT 


PSTDATA 
PSTBUFFA 


Address of work area containing the 
logical record 
Prefix address 
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4. Functions used to access a KSDS by RBA (HISAM or HIDAM index) 



Function 


Input 


Output 


Field 


Contents 


Field 


Contents 


PSTBYLCT 
PSTBFALT 

PSTERASE 


PSTBYTNM 
PSTBYTNM 
PSTDATA 
PSTBYTNM 


RBA of the logical record to be retrieved 
RBA of the logical record to be written 
Address of record within the buffer 
RBA of the logical record to be erased 


PSTDATA 


Address of the record within the buffer 



Calling Sequence 

RO SCD address 

Rl PST address 

R14 Return address to caller 

R15 Address of DLZDBHOO 

Fields Required (Independent of Function) 

PSTFNCTN Hexadecimal code for desired function 



PSTDSGA 



PSTBLKNM 



PSTDMBNM 



PSTACBNM 



PSTBYTNM 



PSTBUFFA 

DSGDMBNO 
DSGDCBNO 
On Return 



Address of associated DSG needed for: PSTBYLCT, 
PSTBKLCT, PSTBYALT 

Identification of desired block needed for: PSTBKLCT, 
PSTBFALT, PSTFBSPC 

Number of associated DMB needed for: PSTBKLCT, 
PSTBFALT, PSTFBSPC, PSTGBSPC 

Number of associated ACB needed for: PSTBKLCT, 
PSTBFALT, PSTFBSPC, PSTGBSPC 

PSTBYLCT/PSTBYALT - relative byte address of desired 
segment - relative record number of HISAM ESDS (high-order 
byte = X'80') 

PSTGBSPC - fullword size of requested space 

Address of buffer prefix for block to be marked Altered' - 
PSTBFALT 

DMB number of the referenced data base 

ACB number of the referenced data set 



R15 Request satisfied 

4 Warning or error condition 

Fields Returned (Independent of Function) 

PSTOFFST Offset from PSTDATA back to first byte of block 
PSTDMBNM DMB number 






/f^"\ 
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PSTACBNM ACB number 

PSTDATA Address of first byte of requested segment, record, or space 

PSTBUFFA Address of buffer prefix 

PSTNUMR Number of reads done during this call 

PSTNUMWT Number of writes done during this call 

PSTCLRWT Bit - This caller waited during request 
Bits 1-8 - Reserved 



c 



( 



PSTRTCDE 




Return 




Code 


Hex 


Function 
PSTCLOK 


Function 

00 


PSTGTDS 


04 



PSTIOERR 



PSTNOSPC 



PSTBDCAL 



PSTNOTFD 



08 



0C 



10 



14 



Description 

No error occurred during this request. 

Record, CI, or segment requested is more than 
one CI beyond the end of the data set - returned 
on PSTBKLCT, PSTBYLCT, PSTBYALT 

Requested CI, record, or segment could not be 
read successfully on a PSTBKLCT, PSTBYLCT, 
or PSTBYALT call or could not be written 
successfully on a PSTPUTKY, PSTMSPUT, 
PSTWRITE, or PSTBFALT call. 

An out of space condition occurred on the data 
set DASD while processing this request. 

The byte at PSTFNCTN is not a valid function or 
the DMB/ACB/BLKID in the PST do not match 
corresponding fields pointed to in PSTBUFFA 
for a PSTBFALT call. 

A PSTSTLEQ call has been issued for a record 
whose key is higher than the highest key in the 
data set. 



PSTNWBLK 



18 



The requested CI, record, or segment will go in 
the CI, one greater than the current end of the 
data set. Space has been allocated in the pool to 
hold the new CI. The address is at PSTDATA. 



PSTNPLSP 



1C 



The pool does not contain enough space to 
satisfy the request. 



Section 3 . Program Organization 3-5 1 



DLZRDBLO - DB Logger 



Return 




Code 


Hex 


Function 


Function 


PSTWROSI 


20 
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Description f I 

A request (GBSPC) was issued for a buffer size %_J / 

which exceeds the highest buffer size handled by 
any subpool. 

PSTENDDA 24 The end of data set has been reached on a 

PSTGETNX call. 

PSTBYEND 28 A request has been issued with a key or RB A 

higher than the highest key or RBA in the data 
set. 

PSTEOD 2C End of data set has been reached on a request by 

DLZDLOC0. 

PSTINLD 34 Invalid request during data set loading. ^ 



The data base logger module logs the modifications made to a data base. These 
data base log records are written to the system log. This module is invoked by 
several of the DL/I modules associated with data base modifications. 

The logging of data base modifications, additions, and deletions is done on a 

physical basis to facilitate a quick recovery procedure. Only calls that actually 

cause a change to be made to a data base are logged. Two sets of information are J 

logged for each modification - a before set and an after set. \. 

The before information is that required by the data base backout utility. It is used 
to back out a partially completed update series and to restore a data base to some 
prior point in time. 

The after information is that required by the data base recovery routines to restore 
the data base from a previous backup copy. 

There are five basic types of data base log records. u 

1. POINTER maintenance record 

When a segment is deleted or inserted and it causes a change in any of the 
pointers in other segments, each pointer is logged separate ly as a POINTER 
maintenance record. A POINTER maintenance record is indicated by bits 1, 
2, and 3 of the DLOGFLG2 field of the log record being set to zero. 

2. PHYSICAL INSERT record 

When a segment is physically added to the data base, a PHYSICAL INSERT 
record is written. This type of record is indicated by a one in bit 1 of the 
DLOGFLG2 field. 



3. PHYSICAL DELETE record 

When a segment is physically removed from the data base, a PHYSICAL 
DELETE record is written. This type of record is indicated by a one in bit 2 of 
the DLOGFLG2 field. 



vy 
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4. PHYSICAL REPLACE record 

When a segment in a data base is modified, a PHYSICAL REPLACE record is 
written. This type of record is indicated by a one in bit 3 of the DLOGFLG2 
field. 

5 . LOGICAL DELETE record 

When a DLET call is issued but the segment is not physically removed from 
the data base, a LOGICAL DELETE record is written. Only the segment 
code and delete bytes are logged. A logical delete record is indicated by bits 1 
and 2 of the DLOGFLG2 field being set to a one. 

In addition to data base log records, the data base logger module also uses: 

• Application program termination records 

• Application program scheduling records 

• File open records 

• Checkpoint records 

The layout for these records is shown in Section 5 of this manual. 

Record types 1, 2, 3, and 5 contain the before and after information in the same 
record and have a log code of X'50\ Type 4 requires two records. The after 
record has a log code of X'50'; the before record has a log code of X'51\ 
Additionally, if a physical insert reuses space of a deleted record, log records X'50' 
and X'5T are written. 

If the change is an insert or a delete, the before and after are part of the same 
record. On an insert, the new segment, including the prefix, is logged as the change 
data. On a delete, the old segment and prefix are the change data. In HD, both 
insert and delete cause changes to the free space elements (FSEs) within a block. 
The new FSEs and their offsets are logged following the change data and a count 
of the changes is place d in bits 4 through 7 of the DLOGFLG1 field. 

The information needed to create the log record is retrieved from the various DL/I 
blocks. A small amount of additional information is passed as parameters from the 
DL/I action modules. 

The data base log tape format is undefined records (UNDEF). The block size is 
1024 bytes. Maximum record length is 512 bytes. If a segment cannot be logged 
into one record, it is internally spanned over two or more log records. The first 
record is logged with a data length adjusted to match the data it contains. The 
offset for the second record is incremented by the length of the first, and the 
second is written as a separate segment. The adjusting of data length and offset 
continues until the entire segment is written. 

The data base disk log uses VSAM with a CI size of 1024. The user buffer facility 
is used to ensure that the log records are written immediately. The disk log record 
format is compatible with the tape log record. 

Control Blocks - DLZRDBLO 



• Data base log record 

• Application program termination record 

• Application program scheduling record 
^J • File open record. 



Section 3. Program Organization 3-53 



Licensed Material — Property of IBM 

Register Contents 

Rl ' PST address ff ^ 

R13 Save area ^-^ 

R14 Return address 

R15 Entry point address. 

High-order byte of PSTWRK1 field in PST: 

Bit Value Definition 

1 Index maintenance call 

1-3 000 Chain maintenance call 

001 Physical replace 

010 Physical delete 

100 Physical insert 

110 Logical delete 

111 Reserved 

4 1 Last change for this user call 

5 One FSE (physical delete or insert) [^ \ 
1 TwoFSEs W 

6 1 Old copy of physical replace 

7 1 New block log call 

4&6 1-1 No data - end of user call 

PSTWRK1 Physical SDB address (except new block call) 
Data length (low halfword) if new block call 

PSTWRK2, 

PSTWRK3, ( ^ 

PSTWRK4 Old data on pointer maintenance and logical delete calls. FSE data '\^J 

on physical insert and delete calls. 

Before a data base block is updated (that is, before the buffer handler issues the 
put for an updated block), the associated log information is first written to the log 
tape or disk in the following manner. 



After issuing a put to write a log block to the log tape or disk, the log module 
updates the count of written log blocks in the field SCDLOCOU. 

When the log module processes a log call, in which a data base buffer is involved, 
the current count of written log records is stored from SCDLOCOU into byte 7 of 
the buffer prefix in the case of HD, or into the field DMBACBLC in the ACB 
extension in the case of HISAM and HID AM index. 

Before issuing any put for updating a data base block, the buffer handler compares 
the value stored in the buffer prefix (HD) or in the ACB extension (HISAM, 
HID AM INDEX) with the current value in SCDLOCOU. If the two values are 
unequal, the log information associated with the data base update has already been 
written out. If the two values, however, are equal, the buffer handler branches to 
entry point WRIAHEAD of DLZRDBL0 to force the current contents of the log 
I/O area to be written out immediately. If, however, asynchronous logging was 
requested by the user, the count comparison is bypassed, that is, no "write ahead" 
logging takes place. 
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Logging in the Online System 



Logger DLZRDBLO 



In the online system the put for the log blocks is issued in a separate, asynchronous 
subtask, which is attached at system initialization time. This subtask is a separate 
CSECT within the log module DLZRDBLO. 

The purpose for this is to avoid losing tasks when the end of volume condition is 
encountered on the log tape. 

The communication between the asynchronous log subtask, the logger, DL/I online 
nucleus (DLZODP) is achieved by using three ECBs as follows: 

1. System ECB (SCDESECB, in SCD extension), which is used for the 
communication between the log module (DLZRDBLO) and DLZODP. 

2. Log I/O ECB (SCDELECB, in the SCD extension), which is used for the 
communication between the log module and the asynchronous log subtask. 

3. Private ECB (fullword in the log subtask CSECT), which is used for the 
communication between the asynchronous log subtask and the log module 
during the end of the I/O operation that was initiated by the log subtask. 

Figure 3-2 shows the events which take place when a PUT for a log block becomes 
necessary in an online environment. 



1 . Lock System ECB C 



$> 



System ECB 



2. Unpost Private ECB |Z 

3. Post Log I/O ECB fori-ffi:* 

4. IWAIT on Private ECB — 



10. Post System ECB 



E2S 



Log I/O ECB 



<: 



Private ECB 



Asynchronous Log Subtask 
ONLLOGWR (CSECT Name) 



^ Waiting on 
Log I/O ECB 



5. Prepare PUT 

6. Issue PUT 

7. Post Private ECB 



S2£> System ECB 



D 8. Unpost Log I/O ECB 
9- 



Wait on 
Log I/O ECB 



3-2 



Figure 3-2. Online Log Block Put Operation 
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The relationship between all modules involved in the asynchronous log writing is as 
follows: 





DLZODP 
PRH 

Scheduler Routine 
Terminate Routine 
Message Routine 
IWAIT Routine 
EXCPAD Routine 


DLZOLI00 


DLZRDBLO 


ONLLOGWR 


System ECB 


Checks system ECB, if 
LOG subtask is active: 

1. Before a call is 
processed (PRH 
branches to analyzer 

2. When a log request 
will be issued 

3. Before branching 
back into a task after 
control was given up 




When PUT has to 
be issued, unpost 
system ECB 

After log subtask is 
finished, post 
system ECB 




Log I/O 
ECB 




Attach 
asynchronous 
log subtask 


When PUT has to 
be issued, post log 
I/O ECB, get log 
subtask started 


Waiting on log 
I/O ECB 

After put is 
finished, unpost 
log I/O ECB 


Private ECB 






When put has to be 
issued, lock private 
ECB (I/O is active) 
IWAIT on private 
ECB 


After put, posts 
private ECB 






v 






DLZRDBL1 - CICS/VS Journal Logger 



Logging in the online system can also be done by using the journaling feature of 
CICS/VS. That means the DL/I log information as described about module 
DLZRDBLO will go on the same file as any CICS/VS journal information. 

This is possible because CICS/VS uses different journal record IDs than DL/I 
(DL/I uses X'07\ X'08', X'2F', X<50', X<51'). Any DL/I utility which uses a 
journal tape will check the record ID and process only those records, which have 
record IDs used by DL/I. 

The general structure of DL/I log records, CICS/VS journal records and 
CICS/VS journal blocks are illustrated in Section 5. 

If the user requests logging by CICS/VS journaling (UPSI bits 6 and 7 = 0), 
DLZOLI00 loads module DLZRDBL1 instead of the standard log module 
DLZRDBLO. This module provides the following services: 

• Build and write open records for each data base that has been opened. 
DFHJC TYPE= WRITE is issued to CICS/VS. 
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• Build and write log records on request by the action modules. DFHJC 
TYPE=WRITE is issued. 

• Write log records built by the sched/term. routine. DFHJC TYPE=WRITE is 
issued. 

• Initiate a physical put to the journal tape on request of the buffer handler. 
DFHJC TYPE=WAIT is issued. 

Before a journal call is issued to CICS/VS, DLZRDBL1 checks if the task which is 
going to write a journal record already owns a JCA. If it does not, a GET JCA call 
is issued prior to issuing the DFHJC call. 

Since DLZRDBL1 is not reentrant, no task can be allowed to enter this module 
while log I/O is being processed. 

DLZRDBL1 unposts an ECB (SCDESECB) prior to any physical I/O. In various 
parts of DLZODP this ECB is checked, and, if it is locked, a CICS/VS wait is 
issued before control is passed to any action module. 

When log information is written by using CICS/VS journaling, the writing of log 
information is always ahead of updating the associated data base blocks. The 
scheme used is the same as with standard logging, the only difference being that the 
value for the number of written journal blocks (CICS/VS ECN) is not manipulated 
by the log module but is taken out of the JCT. 

Control Blocks Addressed 

Data base log record 
Application program termination record 
Application program scheduling record 
File open record 



DLZQUEFO - Queuing Facility 



c 






The DL/I queuing facility module provides resource contention control exclusively 
for the requirements of program isolation (PI). 

Program isolation supports resource contention control at the segment level (for 
HD AM/HID AM data bases) and at the record level (for HIS AM data base). 
Module DLZQUEFO provides the control through enqueue/dequeue mechanisms 
using a unique 7-byte resource identifier: 

Bytes 1-4 a relative byte address (RBA) associated with the resource 

Bytes 5-6 the DMB number 

Byte 7 the ACB number 

The RBAs used are: 

For segment level resources - RBA of the segment 

For record level resources - RBA+ 1 of the root segment 

For variable length segments where data separation has occurred, the segment is 
considered a single entity with an ID based on the RBA of the prefix. 
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When the wait is satisfied and if the request was for an enqueue, control is 
returned to the user. If, however, the request was for a verify, the user is first 
dequeued (see dequeue function) as owner of the specified level before he is 
given control. 
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The queuing facility module will automatically update the RBA portion of the 
resource ID in the event of a VSAM CI or CA split (HISAM only). The module 
also contains a deadlock detection routine and will resolve the deadlock by 
terminating one of the tasks involved. 

Three basic control blocks are used to accomplish the enqueue/dequeue function: 

1 . PST/PPST - used to identify the task. 

2. RDB - used to describe a particular resource. 

3. RRD - used to describe a particular task's request (either satisfied or pending) 
for a resource. 

As shown in Figure 3-3 on page 3-59, the RDBs are chained together, both 
forward and backward, to one of several queue heads located in the QWA (queuing 
facility work area). Note that the queue heads have only a forward pointer. The 
proper queue head is determined by hashing the resource ID and using the results 
as an index to the table of queue headers. 

There is one RDB for each resource, no matter how many tasks (maximum of 255) 
have enqueued it. The RRBs are forward and backward chained on two queues, 
one from the RDB and one from the PST for the requesting task. There is one 
RRD for each resource a task has or is requesting. 

On entry to module DLZQUEFO, register 1 contains the PST address and register 

15 contains the entry point address (high-order byte contains 'FLAG' if specified). 

The function requested (enqueue, dequeue, verify, or purge) is contained in the 

PSTFNCTN field of the PST. If the requested function is enqueue, dequeue, or 

verify, the PSTQLEV and PSTWRK2 fields also are initialized in the PST. These # 

fields contain the queue request level (read-only, update, or exclusive) and the U J 

address of the resource ID, respectively. See Appendix D for the macros used to 

request a specific function. 

Enqueue and verify function are essentially the same and are, therefore, processed by 
the same routines. The only difference between them is that the user is not the 
owner of the resource at the return from a verify request. 

Three conditions can be present for the processing of the enqueue and verify 

function: /f"^. 

\y 

1. The resource is not currently enqueued (no RDB exists) and is therefore, 
available. In this case, if the requested function is enqueue, the user is queued 
as owning the resource and control is returned to the caller. If the requested 
function is verify, processing is complete. 

2. The resource is currently enqueued, but is available at the requested level. In 
this case, if the request was for an enqueue, the user is queued as an owner at 
that level and control is returned to the caller. 

3. The resource is not available. In this case the user is queued as waiting for the 
resource, deadlock detection is performed, and a WAIT is issued pending the 
availability of the resource. 



>n 
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Dequeue function processing first determines if the resource is currently owned by 
the requestor. If it is not, the request is ignored. If it is, the enqueue count at the 
specified level is decremented. If all levels are now zero, task ownership is 
relinquished, and any^waiting tasks that may now own the resource are promoted. 
If FLAG was specified, it is set for all waiting tasks. 

If the enqueue count goes to zero and it was the highest level, but lower levels still 
exist, the ownership level is lowered and any waiting tasks that may now own the 
resource are promoted. 

Purge function processing searches the chain of RRDs queued off the specified PST 
for a task and unconditionally relinquishes ownership for all resources encountered. 
Any waiting tasks that may now own the resource are promoted. 

On return from module DLZQUEFO, return codes are set in register 15 and in the 
PSTRTCDE in the PST. 



( 



( 




Figure 3-3. Enqueue/Dequeue Control Block Relationships 



The following table identifies the mainline routines and the functional subroutines 
of the queuing facility module: 
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Mainline Routines 

Routine Function 

QENQDEQ Common Entry Logic 

QRETURN Common Exit Logic 

QENQVER Enqueue/Verify Mainline 

QNRENQ New Resource Enqueue/Verify 

QERENQ Existing Resource Enqueue/Verify 

QREENQ Re-enqueue or Verify of Resource Already Owned 

QDEQ Dequeue Mainline 

QDEQVER Dequeue Specific RRD 

QRELRSC Relinquish Ownership of Resource 

QPUR Dequeue all Resource for a Task 

DLZJRNAD Update Routine for RBA on CI or CA Split 



t 
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Functional Subroutines 



Routine Function 

QLOCRDB Locate RDB or Position on Chain 

QLOCRRD Locate RRD or Position on Chain 

QBLDRDB Build, Initialize, and Chain RDB 

QBLDRRD Build, Initialize, and Chain RRD 

QUCFRDB Unchain and Free RDB 

QDASOWN Define Task as Owner of Resource 

QWAIT Wait for Ownership of Resource 

QLOCNPO Locate New Prime Owner 

QPNOWCM Promote New Owners, Do Wait Chain Updates 

QPFLAGP Pass Flag Parameters To Waiting Tasks 

QDLKDTN Detect and Resolve Deadlocks 

QDLKRSV Resolve Deadlocks 

QGETBLK Get 24-Byte Block from Free Chain 

QRETBLK Return 24-Byte Block from Free Chain 



x"^\ 






Data Areas Used 



SCD 

PPST 

PST 

RDB 

RRD 

QWA 



X_y 



Entry Points 
QENQDEQ 



General entry point for request to enqueue, dequeue, or verify a 
resource, or to purge enqueues for a task. 



DLZJRNAD Entry point to update the RBA portion of any resource IDs as 
required due to data movement during a VSAM CI or CA split 
(HISAM only). 



C) 
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DLZCPY10 - Field Level Sensitivity Copy 

DLZCPY10 has two CSECTs: DLZCPY10 and DLZSEGCV. 

The function of DLZCPY10 is to map the user view of a segment into its physical 
view for DL/I ISRT and REPL calls, in support of field level sensitivity. On a path 
call, DLZCPY10 maps the segment at each level of the path. If a level in the path 
is not field sensitive, the segment at that level is moved without modification. 
DLZCPY10 is invoked by Call Analyzer (DLZDLAOO). 

The function of DLZSEGCV is to convert a segment from either the physical view 
to the user view, or the user view to the physical view. DLZSEGCV is invoked by 
DLZCPY10 to convert ISRT and REPL calls from user view to physical view. 
DLZSEGCV is invoked by Retrieve (DLZDLROO) to convert Get calls from 
physical view to user view. DLZSEGCV is also invoked by Retrieve to convert 
SSA values from user view to physical view. 

Interfaces - DLZCPY10 

This module interfaces with the following module: 

DLZDBHOO 

Entry Register Contents 

Rl PST address (DLZCPY10) 
FER address (DLZSEGCV) 

R5 SDB address (DLZSEGCV) 

R13 Save area address 

R14 Return address 

R15 Entry point address (DLZCPY10) 

Addr(DLZCPY10)+4 - (DLZSEGCV) 

Control Blocks - DLZCPY10 

SDB PSB 

SDB Exp. PCB 

FSB JCB 

FER LEV 

FERT PSDB 

PST FDB 

SCD SEC 

PDIR DDIR 

MPS Control Modules 

DLZMSTRO - Start MPS Transaction 

This module is invoked by the user via a specific transaction code (CSDA) to start 
multiple partition support (MPS). The functions of this module are to: 
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• Check if the DL/I nucleus is loaded. 

• Check if MPS is already active. 

• Attach the master partition controller (DLZMPCOO). 

Control Blocks Addressed 

CSA-Common System Area (CICS/VS) 
SCD-System Contents Directory 

Register Contents 

R13 Contains CSA address 

DLZMPCOO -Master Partition Controller (MFC) 

The master partition controller (MPC) is attached by the start transaction module 
(DLZMSTRO). 

The functions performed by the master partition controller are: 

Initialize the MPC partition table (DLZMPCPT). 

Define some of the XECBs required for cross partition communication. 

Perform some management of CICS/VS temporary storage queue (TSQ) 
entries for MPS batch jobs using MPS Restart. 

Process all start batch partition controller (BPC) requests and attach a BPC for 
a specific batch partition. 

Process all stop partition requests. 

Process the abend condition if the batch partition controller attach fails. 

Process the stop transaction request to terminate MPS. 

Return control to CICS/VS after all activity is completed. 

Control Blocks Addressed 

MPCPT MPC Partition Table 

SYSCOM System Communication Region 

CSA Common System Area (CICS/VS) 

SCD System Contents Directory 

MPCECBLT CICS ECB Pointer List 

TCA Task Control Area 

DCA Dispatch Control Area 

DLZTSQE Temporary Storage Queue Entry 

DLZXCB1 Batch Communication Area 

Register Contents 

R12 Contains TCA address (at entry) 
R13 Contains CSA address (at entry) 



o 
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Macros Used 




DFHKC 


TYPE=WAIT 


DFHKC 


TYPE=ATTACH 


DFHPC 


TYPE=ABEND 


DFHPC 


TYPE=SETXIT 


DFHPC 


TYPE=RETURN 


DFHSP 


TYPE=USER 


DFHTS 


TYPE=GETQ 


DFHTS 


TYPE=PUTQ 


DFHTS 


TYPE=PURGE 


XECBTAB 


TYPE= CHECK 


XECBTAB 


TYPE=DEFINE 


XECBTAB 


TYPE=DELETE 


XPOST 





DLZBPCOO - Batch Partition Controller (BPC) 



( 



( 



The batch partition controller (BPC) is attached by the master partition controller 
(MPC) when a start request has been made by a batch partition. The functions 
performed by the batch partition controller are: 

• Define XECB for cross partition communication with the MPS batch 

initialization (DLZMINIT), MPS batch program request handler (DLZMPRH), 
and MPS batch termination (DLZMTERM). 



Issue the DL/I scheduling call on behalf of the batch partition. 

Process all DL/I calls on behalf of the batch partition. 

Update temporary storage queue entry for MPS Restart if the batch partition 
issues a combined checkpoint. 

Process ABEND conditions occurring in the batch partition. 

Return control to CIGS/VS for normal and abnormal conditions 

This module must be link-edited with the language interface module, DLZLI000. 

Control Blocks Addressed 

MPCPT MPC Partition Table 

TCA Transaction Control Area 

TWA Transaction Work Area 

PST Partition Specification Table 

PPST Prefix PST 

DLZXCB1 Batch Communication Area 

DLZTSQE Temporary Storage Queue Entry 



Register Contents 

R12 Contains TCA address (at entry) 
R13 Contains CSA address (at entry) 
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Macros Used 




DFHKC 


TYPE=WAIT 


DFHPC 


TYPE=RETURN 


DFHPC 


TYPE=ABEND 


DFHPC 


TYPE=SETXIT 


DFHTS 


TYPE=PUTQ 


XECBTAB 


TYPE=CHECK 


XECBTAB 


TYPE=DEFINE 


XECBTAB 


TYPE=DELETE 






DLZMPIOO - MPS Batch 



The MPS batch module is made up of the following five routines: 

1. MPS Batch Initialization (DLZMINIT) 

2. MPS Batch Termination (DLZMTERM) 

3 . MPS Batch Program Request Handler (DLZMPRH) 

4. MPS Batch Abend (DLZMABND) 

5 . MPS Batch Message Writer (DLZMMSG) 

A separate description for each routine is given in the following text. 

MPS Batch Initialization - DLZMINIT 

This is one of five routines that make up module DLZMPIOO to support the batch 
part of MPS. 

DLZMINIT reads the input parameter statement and checks it for validity. It then 
loads the user's program. Next, it determines what to use as a partition identifier 
by checking the PIK in the COMREG. This value is used in online messages. The 
value for 'n' in XECB names is found in the partition table entry pointed to in the 
area following XECB DLZXCB02, and is put into each XECBTAB macro issued. 

After saving the program name and PSB name for use by online, an XECB, 
DLZXCBnl, is defined in the batch partition for communicating with the online 
partition. The online partition XECB, DLZXCB02, is XPOSTed. This lets the 
online partition know that there is an MPS batch job ready to run. 

When the online partition completes its initialization, the batch routine sets up 
STXIT routines, finishes other initialization activities, and goes to the user 
program. 

DLZMINIT is entered by DOS/VS job control at the start of the job. 

Control Blocks Addressed 



v_y 






MPCPT MPC Partition Table 

TCA Transaction Control Area 

PST Partition Specification Table 

COMREG Communication Region 

XCB1 XECB DLZXCBnl and data following it 

DTFsfor SYSLST, SYSLOG, and SYSIPT 

STXIT AB Savearea 

STXIT PC Savearea 



c 
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XECBs DLZXCB02, DLZXCBn2, DLZXCBn3 

PDIR PSB Directory 

PSB Program Specification Block 

PCB Program Control Block 

DLZEIPL HLPI Control Block 



( 



( 



( 



Register Contents (at Entry to Other Routines) 

• User Program 

Rl PCB list if not PL/I; or a pointer to a list containing the following if 
PL/I: 

- address of PCB list 

- address of location containing size of dynamic storage 

- address of start of dynamic storage 
R13 Save area 

R14 Return address 
R15 Entry address 

• Message Writer (DLZMMSG) 
R14 Return Address 

• ABEND Routine (DLZMABND) 

No special register values 
Macros Used 



XECBTAB 


TYPE=DEFINE 


XECBTAB 


TYPE=DELETE 


XECBTAB 


TYPE= CHECK 


XPOST 




XWAIT 




OPEN 




CLOSE 




EXTRACT 




GET 




GETIME 




GETVIS 

"DTTT 




r\j 1 

CANCEL 




STXIT 


PC 


STXIT 


AB 


JM V LxVjJYl 

COMRG 








MPS Batch Termination - DLZMTERM 

This is one of five routines that make up module DLZMPIOO to support the batch 
part of MPS. 
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The MPS batch termination routine is entered when the user program finishes. It 

tells the online partition to do termination activity, deletes its own XECB, and ends 

the job. 4 ^ 

Control Blocks Addressed 

XCB1 XECB DLZXCBnl and the data following it 
Register Contents 

Registers have the same values at entry as when MPS batch initialization 
(DLZMINIT) completed. 

Macros Used 

XPOST 

XWAIT 

EOJ 

LOCK ^ ^ 

UNLOCK ( ) 

XECBTAB TYPE=DELETE ^-^ 

MPS Batch Program Request Handler - DLZMPRH 

This is one of five routines that make up module DLZMPIOO to support the batch 
part of MPS. 

The MPS batch program request handler routine is entered on each call to DL/I 
made by the user program. The user call list is validated and set up for the online ^ x 

partition to use. Then the online partition is notified by an XPOST of XECB u 

DLZXCBN2. When the call is complete, data is moved to the user's I/O area. ~ 

Control Blocks Addressed 



MPCPT 


MPC Partition Table 


TCA 


Transaction Control Area 


PST 


Partition Specification Table 


XCB1 


XECB DLZXCB1 


DLZEIPL 


HLPI Control Block 


PCB 


Program Control Block 


Register Contents 



At entry: 

RO Bit XW ON if PL/I, OFF if not PL/I 

Bit X<02' ON if HLPI, OFF if call interface 
Rl If PL/I, points to list of pointers to parameters; if not PL/I, points to list 

of parameters 
R13 Save area 
R14 Return address 
R15 Entry address 

Message Writer (DLZMMSG) 

c 



R14 Return address 
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Macros Used 

GETFLD 

STXIT PC 

XPOST 

XWAIT 

XECBTAB TYPE= CHECK 

MPS Batch ABEND - DLZMABND 

This is one of five routines that make up module DLZMPIOO to support the batch 
part of MPS. 

The MPS batch abend routine has four entries: 

1. External routine 

2. PC STXIT 

3. AB STXIT 

4. Other MPS batch routines that cause abnormal termination. 

The first entry initializes registers and then joins the main path. The next two each 
identify which way the ABEND routine was entered. They then issue an error 
message. Then the fourth entry joins them as the online partition is notified. All 
entries delete the batch XECB and cancel or dump. 

When an abnormal termination situation has occurred, DLZMABND is entered by: 

. DLZMINIT 

• DLZMTERM 
. DLZMPRH 

Control Block Addressed 

STXIT AB Save area 
STXIT PC Save area 

Register Contents 

• At entry 

No special values except base registers initialized 

• Message Writer (DLZMMSG) 
R14 Return address 

Exits 

JDUMP If dump requested 
CANCEL If no dump requested 

Entry Points 

External routine Abnormal end for separately assembled routine 
STXIT AB If abnormal end entered by DOS/VS 

STXIT PC If program check determined by DOS/VS 
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XPOST Entry Other abnormal end when BPC must be notified 

Macros Used 

DLZIDUMP 

LOCK 

UNLOCK 

XPOST 

XECBTAB TYPE=DELETE 

JDUMP 

CANCEL 

MPS Batch Message Writer -DLZMMSG 

This is one of five routines that make up module DLZMPIOO to support the batch 
part of MPS. 

There are two entries: 

• From external routines 

• From routines within DLZMPIOO 

The MPS batch message writer routine handles all messages issued by the MPS 
batch partition. At entry, a parameter list is set up. The first parameter is always a 
pointer to the message number. Other parameters, if any, are as needed for the 
message. 

When a message is to be written to SYSLOG and/or SYSLST, the DLZMMSG 
routine is entered by: 

DLZMINIT 
DLZMTERM 
DLZMPRH 
DLZMABND 

External routines 

Control Blocks Addressed 

DTFs for SYSLOG and SYSLST \^J 

Register Contents 

• At entry: 

R14 Return address 

Base registers already initialized except for external routine entry, which 

initializes registers before joining mainline 

• At entry to message table (DLZMMSGT): 

Rl Points to parameter list 

R4 Base register for DLZMMSGT 

R5 Address of where message is to be placed 

R7 Length of message set up before calling DLZMMSGT; after call, R7 has 

total message length tf^-- 

R9 Points to PST (for checkpoint message DLZ105I) \y 

RIO Second base register for DLZMMSGT 



V 



jz 
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Exits 

To calling routine via branch register 14 

Macros Used 

PUT 



DLZMSTPO - Stop MPS Transaction 



This module is invoked when a user wants to stop MPS. The user inputs a specific 
transaction code (CSDD) defined to initiate the stop transaction processing. The 
module then posts the particular XECB that causes the MPC to end the MPS 
environment. 

After the post, the MPC allows batch jobs already executing to complete, but will 
not allow any new ones to start. 

This transaction should be started before CICS/VS non-immediate shutdown is 
initiated. 

Macros Used 



XECBTAB TYPE=CHECK 
DLZMPURO - Purge Temporary Storage Transaction 



( 






This module is invoked by the user via a specific transaction code (CSDP) to purge 
the temporary stroage queue (TSQ) used by MPS Restart. 

If MPS is active when this module is invoked, then a flag is set behind the stop 
partition XECB (DLZXCB01) which signals to the master partition controller 
(MPC) that the TSQ is to be purged, and the stop partition XECB is posted. (It 
serves a dual purpose in this way.) 

If MPS is not active, then the TSQ is purged by this module. 

Control Blocks Addressed 

TDOA CICS/VS Transient Data Output Area 

CSA CICS/VS Common System Area 

TCA CICS/VS Task Control Area 

DLZXCBO 1 Stop Partition XECB 

Entry Register Contents 

R12 TCA address 
R13 CSA address 
R14 Routine entry point 



Macros Used. 




DFHPC 


TYPE=RETURN 


DFHPC 


TYPE= ABEND 


DFHSC 


TYPE=GETMAIN 


DFHSC 


TYPE=FREEMAIN 
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DFHTD TYPE=PUT 

DFHTS TYPE=PURGE 

DFHWTO f 

EXTRACT \~J 

MAPBDY 

XECBTAB TYPE= CHECK 



Data Base Recovery Utilities 



DLZBACKO - Batch Backout Interface 



The batch backout interface module reads and validates any XF control statements 
from SYSIPT. A log input specification table describing each log file to be 
processed is created. The module then reads the DL/I log files and passes the data 
base log records to the data base backout module (DLZRDBCO) for processing. 

By reading the log files in a backward mode, this module is able to process the data 

base records in reverse sequence without using an intermediate work data set. ^ 

When a block is read in, it is searched and the sequence field located at the end of K_J 

each logical record is replaced by the length of that logical record. With the length 

thus in the back of a record as well as in the front, it is deblocked and spanned. 

The interface process includes the following record types: 

X'07' Application program termination record 

X'08' Application program scheduling record 

X'4T Checkpoint record 

X'50' Data base log record f 

X'51' Data base log record \_y 

The batch backout utility is executed under DL/I control as an application 
program. Processing of module DLZBACKO is as follows: 

1. Control is received from DL/I initialization and the PSB name is obtained 
from the parameter data. 



2. The log file is opened to be read backward. 



/f 



3. The log file is read backward and records bypassed until the first data base log ^-- 
record for the PSB is obtained. 

4. An application program termination record (X'07') for the PSB indicates no 
backout necessary, the message "BACKOUT COMPLETE" is issued at 
SYSLOG, the log is closed, and the job is terminated. 

5. Data base log records (X'50' and X'51') are passed to module DLZRDBCO to 
be processed against the appropriate data base. Processing terminates when an 
application program scheduling record or a checkpoint record is read, the 
message "BACKOUT COMPLETE" is issued at SYSLOG, the log is closed, 
and the job is terminated. 



If end of file is reached on the log (i.e., the header record is read), it is closed. If 
more log files are to be processed, the above process is repeated starting at step 2. 
Multiple log files must be processed in reverse order of their creation. When all log 
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files are processed, a "BACKOUT COMPLETE" message is issued and the job 
step is terminated. The job is terminated by returning control to DL/I which 
purges all buffers, closes all DMBs, and closes the output log file. 

Entry Register Contents 

Rl PSB list address 

R13 Save area 

R14 Return 

R15 Entry point 

Control Blocks - DLZBACKO 

Application program scheduling record 

Application program termination record 

Checkpoint record 

Data base log record 

DMB 

PDIR 

PSB 

PST 

SCD 

External Modules Called 

DLZRDBCO - Called to interface with DL/I and perform backout. 

DLZBACMO - Message writing 

Record and Message Formats - DLZBA CKO 

All messages are sent to the SYSLOG and SYSLST devices. The messages are 
contained in module DLZBACMO. 



DLZRDBCO - DB Change Backout 

This module receives control from: 



( 






1. DLZBACKO in a batch environment, or 

2. DFHDBP in an online environment during dynamic transaction backout, or 

3. DFHTBP in an online environment during CICS/VS emergency restart. 

with a log record to process. They call open/close (DLZDLOCO) to open the 
DMB specified in the record unless the data base is already open. The buffer 
handler (DLZDBHOO) is called to retrieve the KSDS or ESDS block as indicated 
by the key or the ESDS relative block number or relative byte address. 

The data in the buffer is replaced with the 'old' information in the log, thereby 
nullifying the offending programs update. In the case of HD, when a physical 
delete or insert record is processed, space management (DLZDHDSO) is called to 
update the free space elements and bit map, if necessary and to build the input data 
for the data base logger. DLZRDBLO is called when using the DL/I logger to 
record the changes made to the data base. DLZRDBL1 is called when using the 
CICS/VS journal to record the changes made to the data base. 
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The buffer handler is then called again to mark that buffer altered and control is 

returned to the calling module. . _ 

f > 

Entry Register Contents and Control Blocks ^*^J 

Rl PST address 

R13 Save area 

R14 Return 

R15 Entry point 

PSTSCDAD SCD address 

ADDRLOG Address of data base log record within DLZBACKO PSTDGU & 
PSTDGN must be zero on initial entry 

Control Blocks - DLZRDBCO 

Data base log record 
DDIR 

DMB sir^ 

DSG J 

\ y 
PCB 

PDIR 

PSB 

PST 

SCD 

External Modules Called 

DLZDBHOO Called to read a data base record and to mark the buffer altered /f"~\ 

DLZDHDSO Called to free or reserve space in an HDAM or HID AM record \i j 

DLZDLOCO Called to open data base 

DLZRDBLO Called to log backout modifications to data base 

DLZRDBL1 Called to log backout modifications to data base (online) 

Interface with External Modules 

All modules expect R14 + R15to contain return address + module entry point 
address. 

DLZDLOCO \ y 

Rl address of PST 

R2 address of DDIR entry for DMB to be opened 

PSTDSGA address of DSG to open 
PSTFNCTN PSTOCDMB + PSTOCOPN 
SCDCWRK address of normal log record work area 

DLZDBHOO 

Rl address of PST 

PSTBLKNM RBNifHDESDS 

PSTACBNO 1 

PSTDMBNO 1 |^ X 

STBYTNM RBA if HISAM ESDS or address of key if KSDS \J 

PSTFNCTN desired function 
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DLZDHDSO 

Rl address of PST 

R5 address of PSDB of segment 

PSTOFFST offset to segment from beginning of block 
PSTCODE1 indicates backout in control (for logger) 
PSTFNCTN PSTFRSPC + X'80' (to show backout in control) 

DLZRDBL0/DLZRDBL1 

RO SCD address 
Rl PST address 

PSTCODE1 PSTINTNT + PSTSCHED to indicate backout calling 
PSTDATA address of data in buffer 

SCDCWRK address of backout log work area containing the control information 
for this log record 

Exit Register Contents 

All registers are restored with the exception of register 15 which contains a return 
code. 



( 



Error Codes and Handling - DLZRDBCO 

All error codes are passed in register 15. 
DLZURDBO - DB Data Set Recovery 



The data base data set recovery utility module DLZURDBO is executed under 
DL/I control as an application program. Control is passed to DLZURDBO from 
DL/I initialization. This module is comprised of two independent but logically 
related functions. The first consists of an image dump and a change accumulation 
processor. The PCB address is saved, and a GSCD call is issued to obtain the PST 
address. Control is passed to DLZURCCO to read and process control statements 
from SYSIPT. From information saved by DLZURCCO, a DMB is loaded from 
the Core Image Library to obtain the physical characteristics of the data set to be 
recovered. The DL/I open/close routine (DLZDLOCO) is called to open the 
output ACB and the input file is opened. Then the program enters a dump/cum 
data merge routine. This routine selects a dump record, merges any accumulated 
changes from the cum data set, and a call is made to the buffer handler 
(DLZDBHOO) to write the new record to the output data set. Upon completion, a 
partial or completely recovered data set may exist. If no additional changes are to 
be applied through log files, the program calls the DL/I open/close routine 
(DLZDLOCO) to close the output ACB and terminates. 

If additional changes are to be applied from log files, the program enters the second 
function. This routine opens the logs, scans the log to find a record that applies to 
this data set, and merges the data from the log to the data set record. Upon 
completion, the routine does post-processing and a recovered data set then exists. 

The operation of this routine depends on certain DL/I functions to process the 
logs. The log is scanned for a matching data base/data set name record. When 
one is encountered, the record ID, either a key of a KSDS record or a relative block 
number of an ESDS record is saved, and a call is made to the buff er handler 
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(DLZDBHOO) requesting that the record be retrieved. Upon successful return, the 

log record data is merged with the returned record, and a call is made to the buffer 

handler requesting that the record be marked as altered to cause rewriting. The 

records from the log are thus processed until an end of file is encountered on the v_/ 

log input. At this time, a call is made to the buffer handier requesting that all 

altered buffers be purged, that is, that all records that have been altered be 

rewritten. The program then calls the DL/I open/close routine (DLZDLOCO) to 

close the output ACB, and the program terminates. 

Blocks and Tables - DLZURDBO 

This module utilizes certain DL/I blocks, including the PST, DSG, DMB, DMB 
directory, SDB, PCB, JCB, and SCD. Additionally, several record formats are 
used as follows: 

1 . HISAM reorganization header and data records. See HISAM reorganization 
unload (module DLZURULO) for details. 



W 



2. Data base image dump header and data records. See data base data set image 
copy module (DLZUDMPO) for details. 

3. Accumulated change CUM header and data records. See change accumulation 
module (DLZUCUMO) for details. 

4. Data base change log tecords. 

Normal Entry Points 

itT\ 
The only entry point to this module is DLZURDBO. [i ' 

Entry Register Contents 

Rl pointer to fullword containing address of PCB 

Exit Register Contents 

All registers are restored to entry conditions. 

Modules Called by DLZURDBO \ J 

The recovery control statement processor (DLZURCCO) is called to read and 
validate any input control statements. 

Rl pointer to recovery common area 

The DL/I open routine (DLZDLOCO) is called to open a specific ACB. 

Rl pointer to PST 

The DL/I buffer handler (DLZDBHOO) is called to retrieve and write a specific 
record, mark a buffer altered, and purge (rewrite) all altered buffers. 

Rl pointer to PST 

The DL/I close routine (DLZDLOCO) is called to close a specific VSAM ACB. 
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Rl pointer to PST 

Error Codes and Handling - DLZURDBO 

All codes are in the form of messages. The module DLZRDBMO contains all error 
messages issued by the Data Base Data Set Recovery Utility. 



DLZURCCO - Recovery Control Statement Processor 



c 



This module reads and validates the input control statements from SYSIPT. The 'S' 
control statement describes the data base to be recovered. The 'LFcontrol 
statements describe the log files to be processed. Information from these 
statements is saved in the recovery common area for use by DLZURDBO. 

Normal Entry Point 

The only entry point to this module is DLZURCCO. 

Entry Register Contents 

Rl pointer to recovery common area. 

Exit Register Contents 

All registers are restored to entry conditions except R15, which contains a return 
code (see below). 

Error Codes and Handling 

Messages are issued to SYSLST and SYSLOG for any invalid control statements. 
On return to DLZURDBO, R15 is set as follows: 

R15 = No errors 

R15 = 4 No input control statements 

R15 = 8 Input control statement error 



DLZUDMPO - DB Data Set Image Copy 






The data base data set image copy utility module DLZUDMPO is executed as a 
standard VSE application program and creates a backup copy of a specific data 
base data set. Input may be either a KSDS (HISAM, Simple HISAM, or HID AM 
INDEX) or a n ESDS (HISAM, HID AM, or HDAM). The output is used as input 
to the data base data set recovery utility. Processing is as follows: 

1. A control card is read from SYSIPT and preliminary validity checking is 
performed on various fields. The input card defines the data base/file to be 
dumped, the dump output symbolic filenames, and the number of output copies 
to be created. 

2. The device type is determined for each output file specified and the file(s) are 
opened. 

3. The DMB is loaded from a core image library to obtain the physical 
characteristics of the data base file to be dumped. 
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4. A header record is written to the output file. This record contains information 
necessary to allow the use of the image dump file by the data base data set 
recovery utility. 

5. The input file is opened. 

6. Input segments are read sequentially, an 8-byte prefix is added to identify the 
segment, and the logical record (prefix + segment) is blocked and written to 
the output file. 

7. After all segments have been copied (EOF), the input and output files are 
closed. 

8. Output statistics for the file are written to SYSLST. 

9. Processing continues from step 1 until there are no more input cards, at which 
time the program terminates. 

Control Blocks - DLZUDMPO 

• Dump record prefix 

• Dump header record. 

Error Codes and Handling - DLZUDMPO 

All error codes are in the form of messages to SYSLST and SYSLOG. All the 

messages used by the DB Data Set Image Dump Utility are contained in module 

DLZDMPMO; a read-only CSECT. ^ x 

DLZUCUMO - DB Change Accumulation Utility V^ 

The data base change accumulation utility module DLZUCUMO is executed as a 

standard DOS/VS application program. DLZUCUMO controls the overall 

operation of the Data Base Change Accumulation Utility. First, the control card 

processor module (DLZUCCTO) is called to read the input stream. Upon its 

return, the PROCFLAG switch is tested. If records are to be passed to sort, the 

sort parameter list is formatted, including a sort Exit 15 (DLZUC150) and the sort 

Exit 35 (DLZUC350). The sort program is then loaded, and this module r ^ 

(DLZUCUMO) waits for it to terminate. Upon termination, a completion code is [ 

tested and appropriate messages are provided as output. If records are not to be \^s 

sorted, that is, no DBO type control cards were read, the module calls the Exit 15 

module (DLZUC150) to create the new log file. If error are encountered by any of 

the four processing modules, control is passed to the common error routine 

DLZUCERO. 

Control Blocks - DLZUCUMO 

• Data base name table, containing the data base names and the address of the 
date/time table for this entry. 

• Data/time table 

• Accumulation header record 

• Accumulation record 



c 
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Normal Entry Point 

The main entry point to this module is DLZUCUMO. DLZERRTN is an entry 
point used by DLZUC150 on any error condition. 

Entry Conditions 

This is the main module which controls the overall operation of the Data Base 
Change Accumulation Utility program. 

Control information is passed from module to module by means of an externally 
referenced table contained in DLZUCUMO. 

| DLZCUMMO - Common Error Routine 

This module is the common error routine. Control may be passed to it from any of 
the four processing modules. It addresses a message depending on parameters 
passed to it, and prints a message to the SYSLST and SYSLOG devices. 

Normal Entry Point 

| The only entry to this module is DLZCUMMO. 

Entry Conditions 

This module is entered to output all error messages. 

Entry Register Contents 

Rl contains a message number. R2 is negative if this is a multi-part message. (R2 
points to last byte of message on second entry of multi-part message.) 

Exit Register Contents 

All registers are restored to entry conditions except R2, which points to last byte of 
message on first entry return of multi-part message. 

DLZUCCTO - Control Card Processor 

This module is the control card processor. It reads the control card input stream, 
checks the cards for validity, and constructs the data base name table and the 
date/time table if data base names are supplied. It also constructs the log input 
specification table describing the input log file(s). 

Normal Entry Point 

The only entry to this module is DLZUCCTO. 

Entry Conditions 

This module is entered to process the control card input stream. 

Exit Register Contents 

All registers are restored to entry conditions. 
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DLZUC150 - Sort Exit 15 

This module is the sort Exit 15 routine. It reads the log input records, checks the 
purge date if applicable, and determines the disposition of the record. If the record 
matches an entry in the data base name table, the date/time table is searched and 
the appropriate purge date and time are compared. If the record is before the 
purge date, the program returns to read another record. If the record is not purged, 
the routing is determined from the table and written to sort and/or to the new log. 
A table of DMB names and purge dates is prepared for Exit 35. 

Normal Entry Point 

This module is entered at DLZUEX15 if no records are to be accumulated, and at 
DLZUC150bysort. 

Entry Conditions 

This module is entered to read input logs and disperse records to new log or sort. ,<r ~>, N 

Rl contains the address of the parameter list from sort or a dummy list if control . J 

was received from DLZUCUMO. 

Exit Register Contents 

All registers are restored. 

DLZUC350- Sort Exit 35 

This module is the sort Exit 35 routine. It receives all records from sort. If an old / /- 

accumulated data set is supplied, a record is read from the data set and a record is u j 

retrieved from sort. The data base name and file identification of the records are 

compared. All input cum records are purge-checked according to the date/time, if 

any, specified on DBO card(s). If the old cum input is low, it is written to the new 

cum data set. If the records are equal, the data from the sort record is merged to 

the old cum record, unless purged, and another record is obtained from sort. This 

sequence continues until an unequal condition is detected, at which point the 

record is written to the new cum data set. If the old cum is high, records from sort 

are combined and written to the new cum data set until the compare condition 

changes. This process continues until both the sort and the old cum records are f 

exhausted. V^V 

Normal Entry Point 

This module is entered at DLZUEX35 by sort. 

Entry Register Contents 

Register 1 contains the address of the sort Exit 35 parameter list. 

Entry Conditions 

This module is entered by sort to dispose of all sorted records. 

Exit Register Contents 

All registers are restored to entry conditions, with the sort parameter list updated as 
needed. 
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DLZLOGPO - Log Print Utility 



( 
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The log print utility module (DLZLOGPO) is executed as a standard DOS/VS 
application program and prints the contents of DL/I log files. Input log files may 
be either tape or disk. Optionally, the utility can create an output log tape suitable 
as input to the backout utility module (DLZBACKO). Processing of the log print 
utility is as follows: 

1. Module DLZLPCCO is called to process input control statements. 

2. If requested, the output log tape file is opened. 

3. The DLZDVCE macro is issued to determine the log device type, and the log 
file is opened. 

4. The log records are read and deblocked, and the record types are checked to 
see if valid DL/I record. 

5. The log records are printed to SYSLST in either keyword format or dump 
format. 

6. If requested, log records are written to output log tape. 

7. The input log file is closed. If more input log files were specified, processing 
continues from Step 3. 

8. If requested, the output log file is closed. 

9. Informational statistics are written to SYSLST and the program terminates. 

Error Codes and Handling 

All error codes are in the form of messages written to SYSLST and SYSLOG. All 
the messages used by the log print utility are contained in module DLZLGPMO. 

DLZLPCCO - Log Print Control Statement Processor 

This module is called by DLZLOGPO to read and process input control statements. 
The control statements are read from SYSIPT and validity checking is performed. 
Valid control statement types are: 'LO\ *LS', and 'LF. Information from the 
control statements is saved in the log print common area. 

Normal Entry Point 

This module is entered at DLZLPCCO by DLZLOGPO. 

Entry Register Contents 

Register 1 points to the log print common area. 
Register 9 points to the next available print line buffer. 

Entry Conditions 

This module is entered by DLZLOGPO to read and process input control 
statements. 
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Exit Register Contents 



Data Base Reorganization Utilities 



DLZURULO - HS DB Unload 



The HISAM reorganization unload module DLZURULO is executed as a standard 
DOS/VS application program. A control card specifying the data base name, data 
set name, and output symbolic unit name is read. The DBD specified is loaded, 
and a short segment table is constructed. This table consists of the first eight bytes 
of each segment table entry in the DBD. This includes, among other things, the 
segment physical code and the segment length. The size of the prefix, as described 
for each segment type, is added to the segment length and entered in the table. 
This length is later used to move the segment from the input area to the output 
area. 

Next, the input and output data sets are opened. A header record containing 
information about the data base data sets is constructed, and a statistics record is 
written. The first KSDS record is then read and the root segment is checked to 
determine whether the deleted flag is on (no prefix if Simple HISAM). If it is on, 
the total segment chain for that root is ignored, and the next root is processed. If 
the root is not deleted, it is moved to the output area, and the first depend ent 
segment, if present, is processed. If the dependent segment is not deleted, it is 
moved to the output area, and the next segment is processed. This continues until 
the complete dependent segment chain for this root, including any overflow 
dependent segments on the ESDS, have been processed. If the segment is deleted, 
each succeeding segment that is a child of the deleted segment is also deleted. The 
first segment that is not a child of the deleted segment causes the normal segment 
processing to be resumed. The last record written is a statistics record which 
includes information needed for audit trail. The output data set now contains the 
reorganized KSDS and ESDS logical records in physical sequential format (only 
KSDS if Simple HISAM or INDEX). An image of the KSDS record containing a 
root segment and dependent segment is followed by images of the ESDS records 
containing overflow dependent segments for the root segment. A chain pointer in 
the KSDS contains the correct relative byte address of the next ESDS record 
containing overflow dependent segments. If more than one ESDS record is needed 
to contain overflow dependent segments, they follow in sequence and chain 
pointers are maintained in the records. 

Error message handling is accomplished in the following manner: When a routine 
within module DLZURULO requires an error message to be generated, a number is 
loaded into Rl. This number corresponds to a message in the message CSECT 
(DLZRULMO). The routine then branches to a common routine which outputs the 
message. The number passed in Rl is multiplied by 4 and added to the start of the 
message CSECT (DLZRULMO). At that offset, a fullword containing the length 



Y 



All registers are restored to entry conditions except register 9, which is updated to 

point to the next available print line buffer. ^./ 

Error Codes and Handling 

All error codes are in the form of messages written to SYSLST and SYSLOG. All 
the messages used by the log print utility are contained in module DLZLGPMO. 
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of the message and the offset to the start of message text is obtained. These values 
are used to move the message to an output buffer. DLZRULMO is a read-only 
module containing all error messages issued by module DLZURULO. 

Control Blocks - DLZURULO 

• Short segment table 

• Output data record 

• Output header record 

• Statistics record. 

Error Codes and Handling - DLZURULO 

All error codes are in the form of error messages. 

Sample Description of HIS AM Reorganized Format 

Assume a HISAM data base which consists of a single root segment and dependent 
segments in the hierarchical format shown in Figure 3-4. 
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ROOT SEGMENT 




































SEG A 




SEG D 




SEG G 






























1 








SEG B 




SEG C 




SEG E 




SEG H 






















SEG F 




SEG 1 














SEG J 



Figure 3-4. HISAM Data Base with One Root Segment 



The input for the HISAM Reorganization Unload Utility appears as shown in 
Figure 3-5 on page 3-82. 
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KSDS RECORD 



(" 



\ 



ROOT SEGMENT 



ESDS RECORD 1 



ESDS RECORD 2 



SEG A 
(DELETED) 



SEG B 
(CHILD OF A) 



SEG C 
(CHILD OF A) 



+ 


SEG D 


SEG E 


SEG F 
(DELETED) 


SEG G 









SEG H 


SEG 1 


SEG J 
(DELETED) 





FREE SPACE 






Figure 3-5. Input for HISAM Reorganization Unload Utility 



Given this input, the HISAM Reorganization Unload Utility provides the output 
shown in Figure 3-6. 



HEADER RECORD 



INFORMATION ABOUT DATA BASE 




STATISTICS RECORD 


TOTSEG VALUE = 


DATA RECORD (KSDS) 


i 


ROOT SEGMENT 


SEG D 


SEG E 


SEG G 





DATA RECORD 2 (ESDS) 





SEG H 


SEG 1 





FREE SPACE 


UNLOADED STATISTICS RECORD 


TOTSEG = NUMBER OF SEGMENTS UNLOADED FOR SEGMENT LEVEL 



[ ) 



4T\ 



Figure 3-6. HISAM Reorganization Unload Utility Output 



Note: A second ESDS record is unnecessary because space occupied by deleted 
segments is reclaimed. 



DLZURRLO - HS DB Reload 



The HISAM reorganization reload module DLZURRLO is executed as a standard 
DOS/VS application program and is used to reload a reorganized HISAM data 
base data set group. The input to the program consists of a reorganized dump of 
the key sequenced data set (KSDS) and entry sequenced data set (ESDS) created 
by the HISAM Reorganization Unload Utility program. Processing is as follows: 

1. A control card, which contains the filename of the input file containing the 
HISAM data base to be reloaded, is read. The input file is opened and the 
header record is read. 
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2. The output KSDS and ESDS ACBs are generated using the information 
contained in the header record and the KSDS and ESDS are opened (only 
KSDS if Simple HISAM or INDEX). 

3. The statistics record is read and the statistics table initialized. 

4. Records are read sequentially from the input file. These records are images of 
KSDS and ESDS records. 

5. KSDS records are written to the output KSDS using VSAM keyed sequential 
(mass) insert. 

6. ESDS logical records are written to the output ESDS using VSAM addressed 
sequential insert. 

7. After all data records have been processed, the last input statistics record is 
read, and a statistics report is printed, comparing segments unloaded/reloaded. 

8. The files are closed. 

All error messages issued by the HS DB reload utility are contained in module 
DLZRRLMO. It is a read-only module. 

Control Blocks - DLZURRLO 

• Header record 

• Input data record 



( 



DLZURGUO - HD DB Unload 






The HD reorganization unload module DLZURGUO is executed under control of 
the DL/I system as an application program and is used to unload a data base by 
issuing DL/I calls. One or two files may be created and output may be to tape or 
DASD. The module contains two processing modes - "normal" and "restart". 

Normal processing, after module DLZURGUO receives control from DL/I, is as 
follows: 

1. The PCB address is saved and a GSCD call is issued to obtain the PST address. 
The PST allows the program to access the DL/I control blocks needed to 
construct the prefix portion of the output record. This prefix, as described 
below, is used by the HD Reorganization Reload Utility. 

2. The number of outputs (one or two) and output device type (tape or DASD) 
are determined. 

3. Storage is obtained for the statistics table. 

4. Each output file is opened. 

5. The statistics tables, which have been initialized for all data base segment 
types, are written to the output file(s). 

6. A Get Next (GN) call is issued for the first (or succeeding) segment. 

7. The statistics table for the segment type is updated. 
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8. The segment is combined with the segment prefix to form an output logical 
record. The output logical records are blocked and written. 

9. Whenever a checkpoint interval is reached (first root segment after 5000 
segments have been processed or as specified on CHKPT parameter), a 
checkpoint record is written to the output file. The current statistics are part of 
the checkpoint record. To insure the checkpoint record is physically written, a 
dummy checkpoint is also written to output. Additionally a message containing 
the ID of the checkpoint record is written to SYSLOG. 

10. Processing continues at step 6 until end of file is encountered. 

1 1. At end of file, the statistics table totals are written, the output file(s) is closed, 
and the program returns control to DL/I. 

Restart processing, after module DLZURGUO receives control from DL/I, is as 
follows: 

1. Steps 1 - 4 of "normal processing'' are performed. 

2. The restart (RESTART) input file is opened. This is either the output 1 
(HDUNLD1) or output2 (HDUNLD2) file from the previously terminated job 
execution. 

3. A message is issued to SYSLOG requesting the checkpoint record number (ID) 
at which to restart. The number is validated. 

4. All records, including the requested checkpoint record, of the RESTART file ^r > 
are copied to the output file(s). A Get Unique (GU) call is issued for the '1 
checkpointed root segment to establish positioning. If the RBA is available for 

the root segment, it is placed in the SSA with an internal "*T" command code; 
otherwise the segment's key is placed in the SSA and an internal "*C" (key 
retrieve) command code call is issued. The statistics table is initialized with the 
checkpointed statistics record. 

5. Steps 6 - 11 of "normal processing" are performed. 

Control Blocks - DLZURGUO f ^ 

Output record containing segment prefix 
SSA for GU call by RBA 
SSA for GU call by key 
Output table record 
Checkpoint record. 

Interfaces - DLZURGUO 

This module interfaces with DL/I through the DL/I language interface module 
DLZLI000 at entry point ASMTDLI and by fast path interface to retrieve. 

Error Codes and Handling - DLZURGUO 

All errors are indicated by error messages. All messages issued by the HD DB 
unload utility are contained in module DLZRGUMO. It is a read-only module. 
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DLZURGLO - HD DB Reload 



The HD reorganization reload utility (DLZURGLO) is loaded under DL/I control 
as an application program. It reloads a data base under control of DL/I. Input to 
the module consists of a sequential dump data set of logical records created by the 
HD reorganization unload utility (DLZURGUO). A logical record consists of a 
segment prefix and a segment. 

During the reload, a message is issued each time a checkpoint record is encountered 
(approximately every 5000 segments or as specified by user on unload). This 
message is the same in content and format as that issued during unload when the 
checkpoint record was created, and identifies the checkpoint by number. If the 
reload facility fails, a restart capability called 'Reload Restart" allows restarting 
from a checkpoint record. 

After module DLZURGLO receives control from DL/I initialization, processing is 
as follows: 

1. The PCB address is saved, and a GSCD call is issued to obtain the PST 
address. 

2. The input device type is determined and the data set is opened. 

3. If restarting, obtain checkpoint restart number from operator and locate 
checkpoint record. The data base is then positioned (GU call) and the end of 
data is found (GN calls). 

4. An input record is read (segment), and a DL/I call list is constructed. 

5. A DL/I Insert (ASRT) call is issued for the segment. 

6. After all segments have been processed, the last statistics table record is read 
and a comparative statistics report is written. 

7. The input data set is closed, and the program returns control to DL/I. 
Blocks and Tables 

Input record 

Interfaces - DLZURGLO 

This module interfaces with the DL/I routines through the DL/I language interface 
module DLZLI000 at entry point ASMTDLI. 

Error Codes and Handling - DLZURGLO 

All error conditions are indicated by error messages. All messages issued by the 
HD DB reload utility are contained in module DLZRGLMO. It is a read-only 
module. 
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Partial Data Base Reorganization Utility 
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DLZPRCT1 - Part 1 Control 



The Part 1 Control module initializes the environment for Part 1 then cotrols the 
order of execution for Part 1 processing. 

Initially this module acquires storage for the data base table (DBT), segment table 
(SGT), action table (ACT), and range table (RGT). The common area 
(COMAREA) is part of this module and is not dynamically acquired. 

Next the Part 1 Control module loads the Part 1 service modules and their entry 
points in COMAREA. 

The final processing by this module links the Part 1 action modules to the sequence 
defined by the linklist table. As each linked to module returns, its return code is 
checked. Part 1 processing ends when the return code exceeds the maximum value 
allowed for that module, which is an error condition, or Part 1 successfully 
completes. In this case the return code is zero. 

The highest return code that the Part 1 Control module encounters is the return 
code for the Part 1 Control processing. 

Interface 

This module interfaces with the following modules: 

DLZPRERR - Message writer 
DLZPRWFM - Work file manager 
DLZPRABC - Action table build 
DLZPRCLN - Cleanup 
DLZPRDBD - DBD analysis 
DLZPRPAR - Parameter analysis 
DLZPRPSB - PSB source generator 
DLZPRREP - PARTI report writer 

Control blocks - DLZPRCT1 

y 

• ACT - Action table 

• DBT - Data base table 

• SGT - Segment table 

Normal Entry Point 

The only entry point to this module is DLZPRCT1 . 

Entry Register Contents 

Standard register conventions are used for linkage to this module. 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 
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DLZPRABC - Action Table Build 

This module analyzes logical relationships in the prime and related data bases. It 
builds entries in the action table (ACT). The action table entries indicate the 
necessary actions for reorganized segments and for segments that are related to 
reorganized segments. 

Interface 

This module interfaces with the following module: 
DLZPRERR - Message writer 
Control blocks - DLZPRABC 

• COMAREA - common area 
Normal Entry Point 

The only entry point to this module is DLZPRABC. 

Entry Register Contents 

R8 Addressability for ACT 

R9 Addressability for DBT 

RIO Addressability for SGT 

Rl 1 Addressability for COMAREA 

R12 Program base register 

R13 Save area address 

R14 Return address 

R15 Entry point address 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 
DLZPRCLN - Part 1 Cleanup 

This module writes the tables created in part one to the communication data set for 
subsequent use in part two. The tables are written in the following order: 

1. Common area 

2. Data base table 

3. Segment table 

4. Range table 

Control blocks - DLZPRCLN 

• COMAREA - Common area 
Normal Entry Point 

The only entry point to this module is DLZPRCLN. 
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Entry Register Contents 

Standard register conventions are used for linkage to this module. f 

R8 Communication data set DTF 

R9 Internal linkage address 

Rll Common area 

R 1 2 Program base register 

R13 Save area address 

R14 Return address 

R15 Entry point address 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 
DLZPRDBD - DBD Analysis 

This module analyzes the DBD that is to be used in data base partial ( ) 

reorganization. The module uses the characteristics of the prime and any related \^s 

DBDs to build the data base table (DBT). It enters information about data sets in 
the dataset table3 in COMAREA. DLZPRDBD uses the characteristics of and 
relationships between segments in the DBDs to build the segment table (SGT). 

Interface 

This module interfaces with the following module: 

DLZPRERR - Message writer "T 

Control blocks - DLZPRDBD 

• COMAREA - common area 

Normal Entry Point 

The only entry point to this module is DLZPRDBD. 

Entry Register Contents 

R2 Addressability for SGT 

R3 Addressability for TGT 

R4 Addressability for DBT 

R5 Second base register 

Rll Addressability for COMAREA 

R 1 2 Program base register 

R13 Save area address 

R14 Return address 

R15 Entry point address 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 
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DLZPRPSB - Program Specification Block Source Generator 

This module creates a PSB source deck if the partial reorganization input parameter 
PSB= specifies input to Part 1. Because it is not necessary to process all of the 
segments in the data base, a PSB source deck specifies only the sensitive segments. 
The information used to create this source deck' is taken from the partial 
reorganization table created in Part 1 Control. It is the user's responsibility to run 
the PSBGEN and ACBGEN for this PSB prior to Part 2 Processing. 

Interface 

This module interfaces with the following modules: 

DLZPRERR - Message writer 
DLZPRWFM - Work file manager 

Normal Entry Point 

The only entry point to this module is DLZPRPSB. 

Entry Register Contents 

R2 Addressability for DBT 

R6 Addressability for SGT 

RIO File control block 

Rll Addressability for COM ARE A 

R12 Program base register 

R 1 3 Save area address 

R 1 4 Return address 

R15 Entry point address 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 
DLZPRREP - Part 1 Report Writer 

This module creates a report based on Part 1 processing for the data base that is 
going to be partially reorganized. The information used to create the report is 
extracted from the range table, data base table, and the segment table. 

Interface 

This module interfaces with the following module: 

DLZPRWFM - Work file manager 

Normal Entry Point 

The only entry point to this module is DLZPRREP. 

Entry Register Contents 

R2 Addressability for RGT and SGT 
R3 Addressability for DBT 
R8 BAL register 
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RIO File control block 

Rl 1 Addressability for COMAREA 

R12 Program base register 

R13 Save area address 

R14 Return address 

R15 Entry point address 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 
DLZPRCT2 - Part 2 Control 

This module first loads the service modules. Then it restores the common area and 
the tables that were built during Part 1 Control processing from the DLZPRCOM 
dataset. Finally, this module establishes linkage to each Part 2 phase. 

Interface 

This module interfaces with the following modules: V ^ 

DLZPRERR Message writer 

DLZPRPAR Parameter analysis 

DLZPRUPD Update prefix 

DLZPRSTC Sort control 

DLZPRURC Unload/reload control 

Control blocks - DLZPRCT2 

• COMAREA - Common area \S 

• DBT - Data base table 

Normal Entry Point 

The only entry point to this module is DLZPRCT2. 

Entry Register Contents 

RIO File control block H 

Rll Addressability for COMAREA AS 

R12 Program base register 

R13 Save area address 

R14 Return address 

R15 Entry point address 

Exit Register Contents 

All registers are the same as on entry except Rl 5, which contains the return code. 
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DLZPRPAR - Parameter Analysis 



This module analyzes input control statements and generates data in the common 
area (COMAREA), segment table (SGT), action table (ACT), and the range table 
(RGT). 

Interface 

This module interfaces with the following modules: 

DLZPRWFM - Work file manager 
DLZPRERR - Message writer 

Control blocks - DLZPRPAR 

• DBT - Data base table 

• SGT - Segment table 

• ACT - Action table 

Normal Entry Point 

The only entry point to this module is DLZPRPAR. 

Entry Register Contents 

Rl Parameters 

R 1 1 Addressability for COMAREA 

R 1 2 Program base register 

R13 Save area address 

R14 Return address 

R 1 5 Entry point address 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 



DLZPRSCC - Scan Control 






This module scans segments of a data base as indicated in the data base table and 
action table in order to produce K records for SORT1 and T records for SORT3. 
K record types represent segments with unidirectional pointers to segments which 
may have moved during reorganization. T record types represent segments in 
secondary index data bases with non-unique key values from the source segment. 
T records are provided with a relative record number based on the number of times 
the key of the index value is duplicated. 

Interface 

This module interfaces with the following modules: 

ASMTDLI DL/I interface 
DLZPRERR Message writer 
DLZPRDLI DL/I service 
DLZPRWFM Work file manager 
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Normal Entry Point 

The only entry point to this module is DLZPRSCC. 

Entry Register Contents 

R 1 1 Addressability for COMAREA 

R13 Save area address 

R14 Return address 

R 1 5 Entry point address 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 
DLZPRUPD - Update Prefix 

This module adds, deletes, and updates segments and indexes according to the 
input data work records and index work records from workfile 3 and workfile 5, 
respectively. This module processes each data base in physical order until all 
changes are complete. 

Interface 

This module interfaces with the following modules: 

ASMTDLI DL/I interface 

DLZPRERR Message writer 

DLZPRDLI DL/I service |T 

DLZPRWFM Work file manager \_y 

DLZPRSTW Statistical writer 

Normal Entry Point 

The only entry point to this module is DLZPRUPD. 

Entry Register Contents 

Rll Addressability for COMAREA | ) 

R13 Save area address x=^/ 

R14 Return address 

R 1 5 Entry point address 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 
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DLZPRSTC - Sort Control 



C 






This module contains four routines, SORT1 through SORT4. These routines 
arrange data work records for prefix update (DLZPRUPD). Each routine invokes 
DOS/VS sort passing parameters which includes the addresses of sort exits 15 and 
35. The sort exits perform the processing required by SORT1, SORT2, SORT3, 
and SORT4. 

SORT1 and SORT2 process data work records exclusively. The input to SORT1 is 
from RELOAD and SCAN. The input to SORT2 is from RELOAD and SORT1. 
Together these routines save the new relative byte address (RBA) of the segment 
moved in the associated work records and arranges them in physical sequence as 
they exist in the data bases. 

SORT3 and SORT4 process index work records exclusively. The input to SORT3 
is from RELOAD and SCAN. The input to SORT4 is from the DL/I index 
maintenance file and SORT3. Together these routines eliminate index work 
records that are not involved in update, convert the DL/I index maintenance 
records into partial reorganization format, and arrange the index work records in 
physical sequence. 

Interface 

This module interfaces with the following modules: 

DLZPRERR Message writer 

DLZPRWFM Work file manager 

Normal Entry Point 

The only entry point to this module is DLZPRSTC. 

Entry Register Contents 

Rl 1 Addressability for COMAREA 

R13 Save area address 

R14 Return address 

R 1 5 Entry point address 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 
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DLZPRURC - Unload /Reload Control 

This module performs the unload and reload of segments within user specified f \ 

ranges. DLZPRURC frees the spaces previously occupied by the unload segments. \^ 

It then inserts the segments into the user specified target area. The inserted 
segment's prefix carries forward the logical pointers, counters, and delete byte. 

As physical changes occur in the data base during the process, this module records 
them on the data base log data set. DLZPRURC gathers unload and reload 
statistics for reports during the processing. Finally, it creates work records for 
update depending on actions defined in the action table for reload. 

Interface 

'JThis module interfaces with the following modules: 

ASMTDLI DL/I interface 

DLZPRWFM Work file manager ^- v 

DLZPRERR Message writer ( 'J 

DLZPRDLI DL/I service V ^ 

Control blocks - DLZPRURC 

• COMAREA - Common area 

• FCB - File control block 

• DBT - Data base table 

• SGT - Segment table 

• ACT - Action table g --^ 

• RGT - Range table J J 

Normal Entry Point 

The only entry point to this module is DLZPRURC. 

Entry Register Contents 

R13 Save area address 

R14 Return address "f~^\ 

R15 Entry point address %^J 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 
DLZPRWFM - Work File Manager 

This module provides open, close, input, and output operations for VSAM and 
SAM files used in data base partial reorganization. 

Interface 

This module interfaces with the following modules: 

ASMTDLI DL/I interface g-\ 

DLZPRERR Message writer i J 
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Control blocks - DLZPRWFM 

• COMAREA - Common area 

• FCB - File control block 

Normal Entry Point 

The only entry point to this module is DLZPRWFM. 

Entry Register Contents 

R6 Addressability for XWR 

R8 Addressability for FILECB 

R9 Addressability for DWR 

R 1 Addressability for DBPCB 

R 1 1 Addressability for COMAREA 

R 1 2 Program base register 

R13 Save area address 

R 1 4 Return address 

R15 Entry point address 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 

DLZPRDLI - DL/I Services 

This module is the interface with DL/I DOS/VS when the function required 
cannot be accomplished by any of the calls documented in the DL/I DOS/VS 
reference manuals. Examples of such functions are: 

• Retrieval of information from DL/I DOS/VS blocks 

• Direct interface with the DL/I DOS/VS buffer handler 

• Direct request to log changed prefix data 

To make use of this module, the caller must: 

1 . Complete any pre-requisite for the service needed 

2. Set the code for the service needed in COMCIREQ 

3 . Enter this module by a B ALR 14,15 

Interface 

This module interfaces with the following modules: 

DLZDBHOO Buffer handler 

DLZPRERR Message writer 

DLZFRSPO Space management 

DLZRDBLO Data base logger 

Control blocks - DLZPRDLI 

• COMAREA - Common area 

• FCB - File control block 

• DBT - Data base table 

• SGT - Segment table 
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• ACT - Action table 

• RGT - Range table 

Normal Entry Point "A^J 

The only entry point to this module is DLZPRDLI. 

Entry Register Contents 

R3 Addressability for DDIR, DMBDACS 

R5 Addressability for JCB 

R6 SGT, SCD, LEV, SDB, PSDB 

R7 DBT,DMB 

R8 Data base PCB 

R9 PST 

Rl 1 Addressability for COMAREA 

R12 Program base register 

R13 Save area address /T~~~\ 

R14 Return address 

R15 Entry point address 
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Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 
DLZPRSTW - Statistical Writer 

This module is used to produce statistical reports for UNLOAD, RELOAD, and 

SCAN in Part 2 Control. #" 



V> 



The report created for UNLOAD consists of range unload statistics, block range 
statistics, and block changes by data base record. 

The report created for RELOAD consists of range reload statistics and block range 
statistics. 

The report created for SCAN consists of a scanned segment count for each 
affected data base record. 

Interface 

This module interfaces with the following modules: 

DLZPRERR Message writer 
DLZFRWFM Work file manager 

Control blocks - DLZPRSTW 

• ACT - Action table 

• DBT - Data base table 

• SGT - Segment table 

• RGT - Range table 

• COMAREA - Common area 
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Normal Entry Point 

The only entry point to this module is DLZPRSTW. 

Entry Register Contents 

Rl Parameters, File control base register 

R6 Print line base register 

R7 Addressability for ACT, RGT 

R8 Addressability for SGT 

R9 Addressability for DBT 

RIO Program base register 

Rl 1 Addressability for COMAREA 

R12 Program base register 

R13 Save area address 

R14 Return address 

R 1 5 Entry point address 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 
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DLZPRERR - Error Messages 

This module formats and sends messages to SYSLST. <f " v 

Based on the message number passed to this module by the caller, the text of the 
message is retrieved from the message table located in this module. If the message 
has a variable data field, the variable data passed by the caller is inserted in the 
message text. 

If an invalid message number is passed by the caller, the message number is printed 
with text that indicates it is an invalid message number. 

Control blocks - DLZPRERR 

• COMAREA - Common area 

• FCB - File control block 

Normal Entry Point 

The only entry point to this module is DLZPRERR. V^ 

Entry Register Contents 

Rl Parameters 

R3 Addressability for SYSPRINT DCB 

R5 FCB File control block base register 

R8 Message table base register 

R9 Message buffer base register 

Rll Addressability for COMAREA $ ; 

R12 Program base register \^f 

R13 Save area address 

R 1 4 Return address 

R15 Entry point address 

Exit Register Contents 

All registers are the same as on entry except R15, which contains the return code. 



c 



c 



y 



3-98 DL/I DOS/VS Logic Manual, Volumel 



Licensed Material — Property of IBM 



C 



High Level Program Interface 



DLZEIPBO - DL /I Batch /MPS EXEC Interface Initialization 



c 






This module has two logical functions. An initialization routine which processes 
the HLPI EXEC DLI INIT call and a routine that loads in DLZEIPB1, and passes 
control to it. 

All CICS/VS application programs which issue DL/I HLPI statements execute a 
translator generated DL/I HLPI INIT call on entry to that program. This INIT call 
results in passing control to entry point DLZEIPI in DLZEIPBO. 

The language interface module (DLZLIPLI or DLZLICBL) calls DLZEIPBO, 
which first checks to see if this is a DL/I HLPI INIT call. If it is, it checks to see if 
storage has been acquired for the UDIB/SDIB. Following this acquisition of 
storage, DLZEIPBO returns to the caller. 

If this is not an initialization call, DLZEIPBO checks the integrity of SDIB, issuing 
DLZ037I if the SDIB has been inadvertently destroyed. If the SDIB is fine, 
DLZEIPBO determines if DLZEIPB1 has been loaded and loads it if not. 
DLZEIPBO then branches to entry point DLZEIPO in DLZEIPB1. 

Interface 

This module interfaces with the following: 



DLZEIPB1 

DLZLICBL 

DLZLIPLI 

Control Blocks 



HLPI DL/I Batch/MPS EXEC interface 
COBOL language interface module 
PL/I language interface module 



• ARGO - ARGO parameter list 

• DIB - User DL/I interface block 

• EIPL - EIP parameter list 

• HLPIL - HLPI parameter list address 

• PATH - Path header control block 

• SDIB - System DL/I interface block 

Normal Entry Point 

The only entry point to this module is DLZEIPI. 

Entry Register Contents 

Rl HLPI parameter list address 

R2 System DIB pointer (If storage has been acquired for System DIB) 

R13 Caller's register save area address 

R14 Caller's return address 

Rl 5 Entry point of DLZEIPBO 

Exit Register Contents 

Rl HLPI parameter list address 
R2 System DIB pointer 
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R3 ARGO parameter list address 

R6 EIP parameter list address 

R8 User DIB address 

R13 Caller's register save area 

R14 Caller's return address 



DLZEIPB1 - Batch /MPS EXEC Interface Program 
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This module handles all DL/I BATCH HLPI calls except the translator generated 
INIT call. It translates HLPI EXEC DLI statements into DL/I Call parameter 
lists. DLZEIPO in DLZEIPOO carries out the same function as this module. 

There are differences between DLZEIPB1 and DLZEIPOO because of the different 
environments. First, DLZEIPB1 uses DOS/VS storage control GETVIS or 
FREEVIS instead of CICS/VS storage control. Secondly, DLZEIPB1 uses its own 
data structure DLZEIPL instead of CICS/VS TCA fields for obtaining the PCB 
address list. Thirdly, DLZEIPOO calls the online program request handler 
DLZPRHOO. 

DLZEIPB1 passes control to DL/I Program Request Handler (DLZPRHBO) for 
batch or DLZMPRH for MPS batch). 

On entry, DLZEIPB1 determines if the call is a data base call. If so, it does the 
following: 

Checks to see if Key feedback is requested 

Determines which PCB in the PCB list to use 

Checks to see if a data transfer is to take place 

Checks to see if segment name has been specified 

Checks to see if the call is a replace call with a previous get path call 

Acquires storage for the SSA 

Checks to see if the call is a valid insert call 

Establishes the correct command codes 

Builds field qualifications 

Sets up the correct SSA for use by the DL/I Program Request Handler 

After DLZEIPB1 finishes building the SSA, it calculates the required I/O area size 
and builds a common I/O area for path calls. Then DLZEIPB1 passes control to 
the correct Program Request Handler. 

If the call is not a data base call, DLZEIPB1 does the following: 

Terminates task if it is a SCHEDULE call (Invalid in a batch environment) 
Terminates task if it is a TERMINATE call (Invalid in a batch environment) 
Builds the checkpoint call if it is a CHECKPOINT call and passes control to 
the correct Program Request Handler. 

On return from the Program Request Handler, DLZEIPB1 does the following: 

Initializes the UDIB with information passed by DL/I in the PCB 

Checks the status code 

Moves Key Feedback information to user area if requested 

Transfers data to user segment I/O areas 

Returns to Caller 



J 
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Interface 

This module interfaces with the following: 

DLZEIPBO HLPI DL/I Batch/MPS EXEC interface initialization 
DLZBNUCO Batch nucleus (Routine DLZPRHBO - Batch Program Request 

Handler) 
DLZMPIOO MPS Batch (Routine. DLZMPRH - MPS Batch Program Request 

Handler) 
DLZMMSGT Message Module for error and informational messages 



Control Blocks 


ARGO 


ARGO parameter list 


DBPCB 


DL/I Program Control Block 


DIB 


User DL/I interface block 


EIPL 


EIP parameter list 


HLPIL 


HLPI parameter list 


PATH 


Path header control block 


SDIB 


System DL/I interface block 


SSA 


Segment Search Argument control block 


SSAP 


SSA path call appendage block 


SSAX 


SSA extension block 


Normal Entry Point 



The only entry point to this module is DLZEIPO. 

Entry Register Contents 

Rl HLPI parameter list address 

R2 System DIB pointer 

R3 ARGO parameter list address 

R6 EIP parameter list address 

R13 Caller's register save area address 

R14 Caller's return address 

R 1 5 Entry point of DLZEIPB 1 



Exit Register Contents 

RI4 Caller's return address 
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DLZEIPOO - DL/I Online EXEC Interface Program 



DLZEIPOO handles all DL/I ONLINE HLPI calls. It is the online interface 
routine that connects the user application program to the online program request 
handler. It performs the combined function of its batch environment counterparts 
DLZEIPBO and DLZEIPB1. DLZEIPOO builds data base calls to the online 
program request handler (DLZPRHOO) according to HLPI command syntax. 

On entry, DLZEIPOO determines if the call is the initialization call. If it is, it 
acquires storage for the SDIB/UDIB. 

If it is not the initialization call, DLZEIPOO goes to the routine DLZEIPO where it 
verifies the integrity of the system DIB. If the call is a data base call, it does the 
following: 

Checks to see if Key feedback is requested. 

Determines which PCB in the PCB list to use 

Checks to see if a data transfer is to take place 

Checks to see if segment name has been specified 

Checks to see if the call is a replace call with a previous get path call 

Acquires storage for the SSA 

Checks to see if the call is a valid insert call 

Establishes the correct command codes 

Builds field qualifications 

Sets up the correct SSA for use by the DL/I Program Request Handler 

After DLZEIPOO finishes building the SSA, it calculates the required I/O area size 
and builds a common I/O area for path calls. Then DLZEIPOO passes control to 
DLZPRHOO (Online Program Request Handler). 

If the call is not a database call, DLZEIPOO does the following: 

Builds a SCHEDULE call if requested 

Builds a TERMINATE call if requested 

Builds the CHECKPOINT call if requested 

DLZEIPOO then passes control to the Program Request Handler. 

After returning from the Program Request Handler, DLZEIPOO does the following 
for data base calls: 

Initializes the UDIB with information passed by DL/I in the PCB 
Checks the status code 

Moves Key Feedback information to user area if requested 
Transfers data to user segment I/O areas if necessary 
Returns to DFHEIP 

After returning from the Program Request Handler, DLZEIPOO does the following 
for the SCHEDULE call: 

Counts the number of PCBs 

Acquires storage for the path header control blocks 

Returns to DFHEIP 
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Interface 

This module interfaces with the following: 

DFHEIP CICS/VS EXEC Interface Program 

DLZPRHOO Online Program Request Handler 

DLZMMSGT Message module for error and informational messages 



Control Blocks 




ARGO 


ARGO parameter list 


DBPCB 


DL/I Program Control Block 


DIB 


User DL/I interface block 


EIPL 


EIP parameter list 


HLPIL 


HLPI parameter list 


PATH 


Path header control block 


SDIB 


System DL/I Interface block 


SSA 


Segment Search Argument control block 


SSAP 


SSA path call appendage block 


SSAX 


SSA extension block 


UIB 


User Interface Block 



Normal Entry Point 

The only entry point to this module is DLZEIPI 

Entry Register Contents 

Rl HLPI parameter list address 

R7 CICS/VS CSA address 

R13 Register save area address 

R14 Caller's return address 

R 1 5 Entry point of DLZEIPOO 

Exit Register Contents 

R14 Caller's return address 
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Application Control Blocks Creation and Maintenance 

DLZUACBO -ACB Creation and Maintenance 

The application control blocks creation and maintenance utility creates the internal 
control blocks required by the DL/I application program. Using the PSB and 
DBDs as input, this utility creates DL/I internal format control blocks as output. 
These output control blocks must be link edited into the VSE Core Image Library, 
either private or system, as specified by the user. These blocks contain information 
about the data bases and the programs which use them. They describe some device 
and media characteristics, the stored data structures, and the logical data structures 
as seen by both the system and application programs. The program accepts control 
card input to determine what functions are required. For the DL/I-SQL/DS user, 
if requested, all DBD and PSB data definitions will be collected and stored into the 
DL/I Documentation Aid SQL/DS tables. 

The logic flow is as follows: The control card input stream is processed and each 
card is syntax-checked. A sorted list of requested blocks is built in main storage. 
Each PSB name specified on the control card is inserted into the list. 

Each name on the constructed build list is then passed to the application control 
blocks builder module DLZDLBLO to have blocks constructed. Addresses are 
relocated relative to zero and the completed blocks are written to a SYSPCH or 
SYSLNK data set. 

Blocks and Tables - DLZUACBO 

Program control parameter block 

PST 

SCD 

PDIR 

USERIDCB 

PSBSQLIO 

Interfaces - DLZUA CBO 

This module interfaces with the following modules: f ^ 

V J 

DLZUSCHO Called to create and search sorted PSB lists 

DLZLBLMO Called to format prebuilt messages 

DLZDLBLO Called to build and output control blocks for a PSB 

Register Contents 

R0-R1 P ARM registers 

R2-R8 Work registers 

R9 Pointer to PST 

R10-R11 Work registers 

R13 Pointer to save area and primary base register 

R14-R15 Operating system linkage registers 
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DLZUSCHO -ACB Maintenance Binary Search I Insert 



The function of module DLZUSCHO is to create and search sorted lists in dynamic 
(GETVIS) storage using the binary search technique. Any number of lists may be 
created simultaneously (subject only to the limit of available storage). A list entry 
may be any length from 1 to 256 bytes. The key or sequence field may also be 
from 1 to 256 bytes in length and may be located anywhere in the list entry. The 
only restriction on keys is that they must consist of a single contiguous string of 
bytes within the list entry. 

The number of entries in any list is limited only by available storage. However, 
since this routine physically moves data in storage to make room for new entries, it 
becomes less efficient as the number of entries increases. For large numbers of 
items, it might be best to consider sorting the entries in the conventional fashion. 

This module is called by DLZUACBO to build and maintain the list of PSBs to be 
processed. 

Operation 

1. The following interface is used to initiate a new list: 

L 15,=V(DLZUSCH0) 
LA 1,PARMS 
BALR 14,15 

where PARMS is a 3 -word list whose contents are as follows: 

Word 1 = length of the list entry 

Word 2 = offset from the beginning of the list entry to the key/sequence 

field 

Word 3 = length of the key/sequence field 

On return, register 1 contains the location of the new list control block. (This 
location must be submitted to the search routine on all subsequent search or 
insert calls for this list.) 

2. The following interface is used to insert an entry into a list: 

L 15,=V(INSRCH) 
A 1JNPARMS 
BALR 14,15 

where INPARMS is the location of a two- word list whose contents are: 

Word 1 = address of the list control block 
Word 2 = address of the list entry to be inserted 

On return from INSRCH, register 15 contains zero if the entry was 
successfully inserted, and register 1 contains the location at which the insert 
was made. 

If the entry was not inserted (because a duplicate was found), register 15 
contains 8, and register 1 contains the location of the duplicate entry. 

3. The following interface is used to locate an entry in a list created by INSRCH: 
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L 15,=V(LOCSRCH) 

LA 1, LOCPARMS 

BALR 14,15 :f N 

<_/ 

where LOCPARMS is the location of a two-word list whose contents are: 

Word 1 = address of the list control block 
Word 2 = address of the search argument (key) 

On return from LOCSRCH, register 15 contains zero if an entry containing the 
search argument in its key field was found, and register 1 contains the location 
of this entry. If no entry was found, Register 15 contains 4 and register 1 
remains as it was on entry to LOCSRCH. 

The following interface is used to delete all storage obtained by OPENSRCH 
and INSRCH for a given list: 



L 15,=V(CLOSESCH) 
Ll,LOCPARMS 
BALR 14,15 

where LOCPARMS contains the location of the list control block for the list to 
be deleted. 

Control Blocks - DLZUSCHO 

• List control block 

• Sorted list block. 

Programming Note 

If some number of entries have been placed in a list through repeated calls to 
INSRCH, they can be retrieved in sorted order by locating the first block by way of 
CHAINLOC and all subsequent blocks by way of their CHAIN fields. The entries 
are in order (low to high logical sequence) with the lowest entry in block 1 entry 1, 
next in block 1 entry 2, etc., with the highest entry located in the last-used slot in 
the last block. 
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DLZLBLMO - ACB Generation Error Message Handler 



This module is used to contain, select, and format error messages for the ACB 
generation facility. Given a message number in register one, the module will select 
the matching message and format it by inserting an arbitrary number of additional 
character strings addressed by specified registers. The 'PRTMSG' routine in 
module DLZUACBO is called to print the message. Control is returned to the 
caller. 

Entry Register Contents - DLZLBLMO 

Rl Message number 

R13 Save area 

R14 Return address 

R15 Entry point 

Additionally, any registers are passed that have been defined to contain pointers to 
character strings to be inserted into the message. These are generally (but not 
always) registers 5, 6, and 7. 

External Routines Called - DLZLBLMO 

PRTMSG - Entry point to the print routine in module DLZUACBO. 
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DLZDLBLO, DLZDLBPP, DLZDLBL1, DLZDLBDP, DLZDLBL2, DLZDLBL3 - ACB BUILDER 

The four modules, (DLZDLBLO, DLZDLBL1, DLZDLBL2, and DLZDLBL3), 
are responsible for building all the control blocks for a given PSB and its associated 
DBDs, and for outputting them to either SYSPCH or SYSLNK in a format that 
allows LINKing them into the VSE core image library. 

The two modules, (DLZDLBPP and DLZDLBDP), are responsible for collecting 
all the data definitions for the DBDs and PSBs and storing them into the DL/I 
Documentation Aid SQL/DS tables. 

The first module, DLZDLBLO, loads the specified PSB and calls module 
DLZDLBPP, if the USERID parameter was specified on the BUILD statement. 

Module DLZDLBPP creates the PSBBASICDATA, PSBPCBDATA, 
PSBSEGMENTDATA, and PSBFIELDDATA records from information retrieved 
from the DL/I PSB control blocks and inserts them into the appropriate DL/I 
Documentation Aid SQL/DS tables. After all processing is completed for the PSB, 
control is returned to DLZDLBLO. 

Module DLZDLBLO then builds the PCBs and SDBs for segments identified via 
SENSEG statements at PSBGEN time. It then passes control to module 
DLZDLBL1. 

Module DLZDLBL1 loads the DBDs for all referenced data bases and calls module 
DLZDLBDP, if the USERID parameter was specified on the BUILD statement. 

Module DLZDLBDP creates the DBDBASICDATA, DBDACCESSDATA, 
DBDSEGMENTDATA, DBDLCHILDDATA, and DBDFIELDDATA records 
from information retrieved from the DL/I DBD control blocks and inserts them 
into the appropriate DL/I Documentation Aid SQL/DS tables. After all 
processing is completed for the DBD, control is returned to DLZDLBL1. 

Module DLZDLBL1 then builds the associated DMBs (for all but logical DBDs). 
It then processes the SDBs associated with each DBD, copying any required 
information from the physical definitions and building any required generated 
SDBs. Control is given to module DLZDLBL2 when all DBDs have been 
processed. 

Module DLZDLBL2 finishes the processing of the SDBs. It acquires and builds 
the intent list, including propagation of intent, and initializes any field level 
sensitivity control blocks required. The PCB is moved to its proper location and 
the JCB, level table, and DSGs are built. Control is passed to module 
DLZDLBL3. 

The last module, DLZDLBL3, builds the index maintenance PCB if one is 
required, performs some additional clean-up, and packages and outputs the DMBs 
and the PSB to either SYSLNK or SYSPCH. If a utility PSB is required, module 
DLZDPSBO is called to build it, and module DLZDLBLO is re-called at entry 
PSBPASS to initialize it. 
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Interfaces - DLZDLBLO - DLZDLBL3 

These modules interface with the following modules: 

DLZDPSBO Called to build a utility PSB 
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DLZLBLMO Called to format and write error message 

Entry Register Contents 

Rl Address of parameter list 

R13 Save area address 

R 1 4 Return address 

R 1 5 Entry point address 

Parameter List 

PST address 
USERIDCB address 

Exit Register Contents 

All registers are restored. The return code appears in PSTERCOD of the PST. 

PSTERCOD = Valid return 
PSTERCOD # Errors encountered 



DLZDPSBO - Utility PSB Builder 



( 
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This module is called by the application control blocks builder module 
(DLZDLBLO) to dynamically construct a special utility PSB from a specific DBD. 
The created PSB is in PSBGEN format. A GETVIS is issued to obtain storage 
necessary to create the PSB. The created PSB is sensitive to all segments for the 
data base. 

Entry Register Contents 

Rl Address of parameter list 

R13 Save area address 

R14 Return address of DLZDLBLO 

R15 Entry point 

The parameter list consists of a DBD address and a PSB address. 

Exit Register Contents 

All registers are restored except R15 which contains a return code passed to 
DLZDLBLO. 

R15 = Valid return 

R15 # Errors encountered 



Data Base Logical Relationship Utilities 



DLZURPRO- Prereorganization 



The purpose of this module is to examine input control cards provided by the user, 
and, based upon the information contained in DL/I control blocks, to generate a 
control data set for use by other programs concerned with the resolution of logical 
and index relationships. 



Section 3. Program Organization 3-109 



DLZURGSO - DB Scan 



This module searches one or more data bases for all segments that are involved in 
logical relationships. For each such segment, DLZURGSO generates one or more 
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The input control cards for this program indicate the names of data bases that a 

user wishes to initially load or to reorganize. The control blocks for each segment 

of each data base listed on an input control card are examined. For each logical 

relationship in which a segment participates, a prefix resolution check is performed. ^ ^ 

This check consists of generating a bit map reflecting the prefix fields involved in 

the logical relationship, and then checking the bit map against a table that indicates 

the fields which must be resolved for the types of data bases in which the logical 

parent and the logical child reside. For purposes of the prefix resolution check, the 

type of data base is considered to mean an initially loaded data base, a reorganized 

data base, or another data base (not reorganized or loaded, but logically related to 

a data base that is reorganized or loaded). If the bit map and the table entry match 

yields a nonzero value, prefix fields must be resolved in either or both the logical 

parent and logical child. 

If prefix fields must be resolved, a control list entry is built for the logical parent 

and/or the logical child. This control list entry indicates the fields to be resolved, 

the work data set record format options to use, etc. As control data set list entries 

are built, each record is calculated to determine a maximum record length. The n 

largest size is saved and put into field LESRTSZE when the control data set is 

written. The prefix resolution utility (DLZURG10) reads this value and passes it 

to SORT. 

After generating the control list, the data bases to be scanned, loaded, or 
reorganized are listed. The scan list is punched if requested. The control list is 
then written to the control data set. 

Control Blocks - DLZURPRO 



.4 

• Control file consisting of one or more records, each with a pointer to the next t 

block of control file and an area containing one or more control list entries. 

• List entry. 

• Secondary list entry. 

Interfaces - DLZURPRO 

The interface with the reorganization message module (DLZURGMO) is through 
the tables provided in that module. See the description of that module for table 
format. 

The interface with batch initialization to load the required blocks dynamically is 
accomplished with the DLZBLKLD macro. 

Error Codes and Handling -DLZURPRO 

This program audits all input control cards and verifies the consistency of DL/I 
control blocks. Any errors encountered cause one or more messages to be 
generated. Refer to DL/I DOS/VS Messages and Codes for details. 
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output records, depending upon the relationships in which that segment is involved. 
The output work data set of this program serves as one of the inputs to the prefix 
resolution utility. 

This program scans data bases as indicated either by scan control cards or by the 
control data set generated by the prereorganization program. If scan control cards 
are present, they are checked for consistency with the DL/I control blocks. Data 
base scanning is done by segment type for HDAM and HID AM data bases. If scan 
control cards are provided for segments in an HDAM or a HID AM data base, work 
data set records are generated only for those segments listed on scan control cards. 

After the segments are read into core, control is passed to the work data set 
generator module (DLZDSEHO). DLZDSEHO generates any necessary output 
work data set records based upon information contained in the control data set. It 
then returns control to this program (DLZURGSO). 

Interfaces - DLZURGSO 

Module DLZURGSO interfaces with the reorganization message module 
(DLZURGMO) through the tables provided in that module. See the description of 
that module for table format. 

The interface with the work data set generator module (DLZDSEHO) is as 
described in the documentation for that module. 

The interface with the buffer handler module (DLZDBHOO) is as described in the 
documentation for that module. The buffer handler module is used to directly 
access records in a data base. 

The interface with batch initialization to load the required blocks needed for 
processing is accomplished with the DLZBLKLD macro. 

Error Codes and Handling - DLZURGSO 

This program audits all input control cards and verifies the consistency of DL/I 
control blocks with the control data set. Any errors encountered cause one or 
more messages to be generated. Refer to DL/I DOS/VS Messages and Codes. 

ABENDS - DLZURGSO 

If an input card is read with "ABEND" in columns 1-5, a dump (PDUMP) will be 
taken if an error condition is detected. This should always be done on a rerun of 
this utility if an APAR is to be submitted because of an error return code. 



DLZDSEHO - Work file Generator 



This module generates the work file records that are required to resolve logical 
and/or index relationships after one or more data bases have been initially loaded 
or reorganized. This program is used by the HD reload (DLZURGLO) and scan 
(DLZURGSO) utility programs provided by DL/I DOS/VS. It is also called 
automatically by internal DL/I modules (DLZDDLEO and DLZDXMTO) when a 
data base is initially loaded by a user-written program. 

The general operation of this program consists of creating one or more work file 
records for each segment that is initially loaded, reloaded, or scanned, if that 
segment is involved in at least one logical or index relationship. The work file 
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records reflect the new location of each segment and, if the data base is being 
reloaded, its old location. Each work file record also contains related information 
that indicates the data bases and segments involved in the logical or index 
relationship described by the record, their old pointer values, etc. 

This program generates all work file records that are used as input by the data base 
prefix resolution module (DLZURG10). The format of each output record 
generated by this program (DLZDSEHO) is as described for input of the data base 
prefix resolution module (DLZURG 10). 

This module contains a CSECT which is also used by scan (DLZURGSO) and 
index maintenance (DLZDXMTO) to open the work file DTF. Within this routine 
is a subroutine (FINDDTF) which is also used by scan to determine the correct 
DTF (disk or tape) to use for a given file depending on the assignment for it. 

DLZDSEHO is loaded by batch initialization when the PROCOPT is load' or when 
HD reload or scan are to be executed. The primary entry point address is found in 
SCDDSEHO. The DL/I termination routine will close the work data set. /^ 

Interfaces - DLZDSEHO V ^ 

The first seven fullwords of the CSECT contain information to be used by the 
modules which interface with DLZDSEHO. These words concern the work data set 
and entry points or addresses needed by scan (DLZURGSO). 

Displ. from 

Entry Point 

DLZDSEHO Contents g- 

-28 Base address of this module U 

-24 Address of LPLCSV - information needed by scan 

-20 Address of TEST - entry point when called by scan 

-16 Address of FINDDTF - a subroutine used by scan 

-12 Address of OPENWORK - entry point of routine to open 

WORKFIL file 
-8 Address of work area available to build output record 

-4 Address of opened work file DTF. If this field is zero, the file is 

not open. 

^\ 

• When invoked during initial data base load or during data base reorganization, V-..^ 

the following interface is used: 

Entry Point 

DLZBEGIN (Address found in SCDDSEHO) 
Register Contents 

Rl PST 

R13 Save area 

R14 Return address 

R15 Entry point address 

Control Blocks 

JCBPRESF - Operation type (FUNCASRT or FUNCISRT) V> 

PSTWRK1 - SDB address 
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Exit 

Return to calling program with a return code in register 15. The values are: 

(X'O') Successful completion 

4 (X'4') WORKFIL could not be opened (IGN was specified). This is not an 

error condition if the user does not wish to create a work file. 
8 (X'8') Sort field size exceeded 
12 (X'C) GETVIS error occurred 
16 (X'10') Invalid DL/I control blocks 
20 (X' 14') Length of PCB key feedback area is zero 
24 (X 4 180 I/O error occurred on WORKFIL or CONTROL data set. 
28 (X'lO CONTROL or WORKFIL data set could not be opened (invalid or 

unassigned device) 

• When the OPENWORK routine is called by scan (DLZURGSO) or index 
maintenance (DLZDXMTO), the following interface is used: 

Entry Point 

OPENWORK 

Register Contents 

R13 Caller's save area address 
R 1 4 Return address 
R15 Entry point address. 

Exit 

All registers are restored to entry condition. Return is made to the address in R14 
plus the displacement if an unknown or invalid device is specified or 4 if 
WORKFIL is successfully opened. 

• When invoked during a data base scan, the following interface is used: 
Entry Point 

TEST 

Register Contents 

R3 Location for prefix parameter list area for segment just read 

R5 Secondary list entry 

R6 PSDB 

R7 SDB 

R9 PCB 

RIO PST 

Rl 1 Location of DTF for work data set (must be open) 

R 1 2 Base address for DLZDSEHO 

Rl 3 Save area for use by DLZDSEHO 

R15 Entry point TEST 

Control Blocks 

PSTWRK1 Byte Operation type (FUNCIHPS) 
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PSTWRK1 Byte 1-3 SDB address 

Exit 

Return to calling program with return code in register 15 as for entry point 
DLZBEGIN. 

• When the FINDDTF routine is invoked by scan, the following interface is 
used: 

Entry Point 

FINDDTF 

Register Contents 

RO System logical unit number in hex 

R2 Address of disk DTF 

R3 Address of tape DTF (or 0, if not an option) 

R13 Caller's save area address 

R14 Return address 

Rl 5 Entry point of FINDDTF 

Exit 

Register 15 - address of chosen DTF 

All other registers are restored to entry conditions. Return is made to the address 
in R14 plus the displacement if an unknown or invalid device specified or 4 if 
successful completion. When error return to R14+0 is made, R15 is zero if IGN 
was specified, or nonzero otherwise. 



DLZURG10 - Prefix Resolution 



This module accumulates the information generated on work data sets during the 
load and/or reorganization of one or more data bases. It produces an output data 
set that contains the prefix information needed to complete the logical and/or 
index relationships defined for the data base(s). 

Operation of this program centers around at least one and possibly two, phases of 
the DOS Sort/Merge program execution. In the first phase, the Sort/Merge 
program is attached by this program. All work data set records generated during 
data base initial load, reorganization, or scan are input to the sort program. All 
input records are sorted such that all work data set records associated with a given 
occurrence of a logical parent follow the work data set record describing that 
logical parent. On exit from the first phase sort, this program has available the 
information needed to resolve the logical parent pointers that reside in logical 
children, the counter field and logical child pointers in the logical parent, and the 
logical twin pointers in the logical child (if a sequence field is carried in the work 
data set record). Any unnecessary records are dropped before entering the second 
sort phase. The second phase of this program is not executed if only index 
relationships need to be resolved. 

In the second phase of this program, the Sort/Merge program is again attached. In 
this sort execution, the output records from phase one are sorted according to data 
base name and physical location within data base of each segment that must be 
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updated by the prefix update program. On exit from the second phase sort, any 
remaining logical twin pointers are resolved, and further accumulation of logical 
parent counter fields is performed. Any records not actually necessary to update a 
data base are dropped at this time. 

This program uses the control data set generated by the prereorganization program 
to govern its general operation. That is, the lists in the control data set indicate 
prefix fields to be resolved, etc. The pre-reorganization utility also calculates the 
maximum record length for SORT records and stores the size in the control data 
set (LESRTSZE). The prefix resolution utility reads this value and passes it to 
SORT. 

Control Blocks - DLZURG10 

• Input work file record - DLZURWF1 

• Output work file record - DLZURWF3 

Error Codes and Handling - DLZURG10 

This program audits all input work data set records for consistency and for 
correspondence with the control list provided with the control data set. Any errors 
encountered cause one or more messages to be generated. Refer to the DL/I 
DOS/VS Messages and Codes. 



DLZURGPO - Prefix Update 



This module reads the input work data set provided by the data base prefix 
resolution module, reads the data base segment indicated by each record of the 
input work data set, and applies the prefix changes indicated by the work data set 
record to the segment read into main storage. 

The input work data set is sorted in data base and segment physical location order 
by the data base prefix resolution module (DFSURG10) to afford most efficient 
update of each data base by this module. The format of each input record read by 
this program is as described for output of the data base prefix resolution module. 

One or more input work data set records may be present for each segment that 
participates in logical or index relationships. The records are successively applied 
to the prefix of each segment affected, and the updated segment is written to its 
storage device. The prefix fields updated by this program include the logical 
parent, logical twin, and logical child pointer fields, and the counter fields 
associated with logical parents. 

Interfaces - DLZURGPO 

The interface with the reorganization message module (DLZURGMO) is through 
the tables provided in that module. See the description of that module for table 
format. 

The interface with the language interface module (DLZLI000) is as described in 
the documentation for that module. The DL/I "ISRT" and "GHU" calls are 
issued by this program. 

The interface with the buffer handler module (DLZDBHOO) is as described in the 
documentation for that module. The buffer handler module is used to directly 
access records in a data base. 
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The interface with batch initialization to load the required blocks dynamically is 
accomplished with the DLZBLKLD macro. 

Error Codes and Handling - DLZURGPO \S 

This program audits all input work data set records for consistency with data base 
control blocks, checks all data base update operations, and checks input control 
card information. Any errors encountered cause one or more messages to be 
generated. Refer to the DL/I DOS/VS Messages and Codes. 



DLZURGMO - DB Reorganization Message 



This module contains messages used by the following utilities: preorganization 
(DLZURPRO), scan (DLZURGSO), prefix resolution (DLZURG10), and prefix 
update (DLZURGPO). The module consists of the two tables defined below. 

Control Blocks - DLZURGMO 

1. Message Length and Offset Table 

One 4-byte table entry exists for each message. Each 4-byte entry contains 
the message length and offset. 

2. Message Table 

One variable-length entry is present for each message. Each entry contains the 
text of the message. The length is found in the message length and offset 
table. 



f ' 



Interfaces - DLZURGMO U 

This module contains messages that are used by the following modules: 

DLZURPRO (prereorganization) 

DLZURGSO (scan) 

DLZURG10 (prefix resolution) 

DLZURGPO (prefix update) 



Trace Print Utility 



DLZTPRTO - Trace Print Utility 



The Trace Print Utility is used to format and print trace entries previously written 
to a tape or disk by the CICS/VS extra partition dataset facility. The format of the 
output records on SYSLST is the same as those written directly to SYSLST by the 
Trace Facility. Trace Print Utility processing is as follows: 

1. The utility opens the reader (SYSIN), printer (SYSLST), and console log 
(SYSLOG). 

2. A read is issued to SYSIN, looking for a TI statement. If present, the fields on 
the statement are validated and saved. Further reads are issued to SYSIN until 
EOF is returned. All statements read from SYSIN are recorded on SYSLST. 

3. When End-of-File is reached on SYSIN, the reader is closed. 
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4. A GETVIS is issued to acquire sufficient storage for two trace input buffers. 
The buffer size will either be the default of 32763 bytes, or the size specified 
on the TI statement. 

5. The device assigned for trace input is then checked by the DLZDVCE macro 
routine. If the device is a valid tape or disk, the corresponding DTF is 
modified and the file opened for input. 

6. Trace records are then read from the input file until End-of-File is returned. 

7. Trace entries are processed from the input buffer one at a time until all of the 
entries in the record are printed. If selective output was specified by using a 
TO statement, each entry is checked against the desired selection. If the entry 
passes the selection test, it is printed. If it does not pass the test, it is ignored. 
When the last entry of the record is processed, control is returned to the read 
routine. 

8. Any errors detected will be written to SYSLST and/ or SYSLOG. If no errors 
are detected, a message indicating successful completion is written. 



DL/I Run and Buffer Statistics 



DLZSTTL - DL/I Run and Buffer Statistics 



c 
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The run and buffer statistics function captures online (including MPS) DL/I 
system statistics and writes them to the extra-partition CSSL. This data is 
cumulative for the current invocation of CICS/VS and automatically printed during 
CICS/VS shutdown. 

Interfaces 

This module interfaces with the following modules: 

CSAPCNAC - CICS/VS program control routine 
CSASCNAC - CICS/VS storage control routine 
CSATDNAC - CICS/VS transient data control routine 

Control Blocks - DLZPRCT1 

• CICS/VS - CSA 

• CICS/VS - TCA 
. DL/I - SCD 

• DL/I - BFFL 

• DL/I - SBIF 

Normal Entry Point 

The only entry point to this module is DLZPRCT1. 

Entry Register Contents 

Rl RPL address 

R2 STTLPUT subroutine linkage 

R3 STTLCNFG loop control 

R5 DLZSBIF base register 
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R6 DLZBFPL base register 

R8 DFHTCTTE base register 

R9 DFHTIOA base register 

RIO DFHTDOA base register 

Rll DLSSTTL base register 

R 1 2 DFHTC ADS base register 

R 1 3 DFHCS ADS base register 

R14 External link 



4T\ 



Extract Defines Utility 



Exit Register Contents 

All registers are the same as on entry except R15, which contains the return 
address. 



DLZEXDFP - Extract Defines Utility 



The Extract Defines utility creates an ISQL Routine containing EXTRACT 
DEFINE commands. This utility uses the information about the the DL/I 
databases in the DL/I Documentation Aid SQL/DS tables created by the 
Application Control Blocks Creation and Maintenance Utility. 

The logic flow is as follows: Each control statement is syntax-checked and 
processed individually based on the PCB. The DEFINE commands are created and 
inserted into the SQL/DS ROUTINE table in the following order: 

DEF PCB NAME=xxxxxxxx , PSB= (xxxxxxx,nnn) , PROC=xxxxxxxx 
DEF SEGMENT NAME=xxxxxxxx , PCB=xxxxxxxx , PARENT=0 

DEF FIELD NAME= (xxxxxxxx, {SEQ I NOSEQ} ) ,SEGM=xxxxxxxx, PCB=xxxxxxxx , 
TYPE=x,START=nnnnn,BYTES=nnn 



(and all other DEFINE FIELD commands associated with this 
segment) 



DEF SEGMENT NAME=xxxxxxxx , PCB=xxxxxxxx , PARENT=xxxxxxxx 
DEF FIELD NAME= (xxxxxxxx, {SEQ I NOSEQ}) , SEGM=xxxxxxxx , PCB=xxxxxxxx , 
TYPE=x , START=nnnnn , BYTES=nnn 



(and all other DEFINE FIELD commands associated with this 
segment) 



The process for creating DEFINE SEGMENT and FIELD commands is repeated 
until all SEGMENTS have been processed for this PCB. 

DEF PCB NAME=xxxxxxxx , PSB= (xxxxxxx,nnn) , PROC=xxxxxxxx 



(and all DEFINE SEGMENT and FIELD commands associated with 
this PCB) 



The process for creating SEGMENT and FIELD commands is repeated until all 
PCBs have been processed for this PSB. 






c 



3-1 18 DL/I DOS/VS Logic Manual, Volumel 



Licensed Material — Property of IBM 



C 



Blocks and Tables - DLZEXDFP 

EXINOUT DEFINE COMMAND build area 

DLZEXWCB DEFINE work control block 

DSQLCA SQL Communication Area 

SQLDSECT SQL/DS Interface Control Block 

Interfaces - DLZEXDFP 

This module interfaces with the following modules: 



DLZEXDFM 
ARIPRDID 

Register Contents 



Called to format pre-built messages 
SQL/DS interface module 



R5 SQLCA Address 

R6 EXINOUT Address 

R7 DLZEXWCB Address 

R8 Error Information 

R9 SQLDSECT Address 
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Figure 3-7. Extract Defines Utility Overview Flow 
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General Flow - DLZEXDFP 



DLZEXDFP'. Mainline routine that does the utility intitialization. 

SCNCARDS: Scans the control statements and retreives all information. 

PARSER Routines: 

PROPSBNM - Parses the PSBNAME parameter and saves the psbname and 
pcbnumber. If the pcbnumber is omitted, it defaults to 1. 

PROPCBNM - Parses the PSBNAME parameter and saves the pcbname. 

PRODLIPR - Parses the DLIPROC parameter and saves the DL/I procedure 
name. 
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PROREP - Parses the REPLACE parameter and sets the replace flag 
accordingly. 

PROUSRID - Parses the USERID parameter and saves the user-id and 
password. 

PCBDEF: This routine selects the information required from the DL/I PSB or 
DBD SQL/DS tables and builds the DEFINE PCB command. If REPLACE was 
specified, the old SQL/DS routine by the pcbname being processed in the 
ROUTINE table is deleted (if there) and replaced by these new DEFINE 
commands. If REPLACE was not specified, a check is made to see if the routine 
already exists, and if so, an error message is issued. If no routine exists for the 
specified pcbname, the new commands are inserted. 

SEGDEFS: This routine builds the DEFINE SEGMENT commands and inserts 
them into the ROUTINE table. It determines if the segment is a concatenated 
segment, a virtual logical child, and if the PSB is field level sensitive. If the PSB is 
field level sensitive, routine FLSBYTES is called to calculate the length of the 
segment. If the segment is a concatenated segment, routine CSEGBYTS is called to 
calculate the length of the segment. If neither of the above, the length of the 
segment is obtained from the physical DBD. 

CSEGBYTS'. This routine obtains the length of the logical child segment and 
calculates the length of the destination parent's concatenated key. If the current 
segment is a virtual logical child, it calculates the logical parent's concatenated key. 
It also obtains the length of the destination parent's segment. 

For a logical child segment: 

Segment length = logical child segment + logical parent segment lengths 

For a virtual logical child segment: 

Segment length = logical child segment + logical parent concatenated key + 
physical parent concatenated key + physical parent segment lengths 

FLSBYTES: This routine calculates the segment length for a field level sensitive 
segment. It also calculates the starting position of the sensitive field and updates 
the PSBFIELDDATA table entry for this field with the length and the datatype of 
the field. 

FLDDEFS. This routine builds the DEFINE FIELD commands and inserts them 
into the ROUTINE table. If the segment is a concatenated segment, routines 
CKDEFS, VLCDEFS, LCDEFS, and DPDEFS are called to obtain the field 
information. If the segment is field level sensitive, field information is obtained 
from the PSBFIELDDATA table. For segments other than field level sensitive or 
concatenated segments, the field information is obtained from the physical DBD 
definition. 

FINDFLD: This routine locates the sensitive field and returns the length and 
datatype to the caller. If the segment is not a concatenated segment, the 
information is obtained from the physical field definition. If the segment is a 
concatenated segment, the order of search is: 
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If segment is a virtual logical child, first select from the virtual logical child. If 
not found or if segment is not a virtual logical child, select from the logical 
child. If still not found, select from the destination parent. 

CKDEFS. This routine obtains the information to build the DEFINE FIELD 
commands for the concatenated key. 



VLCDEFS: This routine obtains the information to build the DEFINE FIELD 
commands for the virtual logical child segment fields. 



LCDEFS: This routine obtains the information to build the DEFINE FIELD 
commands for the logical child segment fields. 



DPDEFS: This routine obtains the information to build the DEFINE FIELD 
commands for the destination parent segment fields. 



INSRTFLD: This routine inserts the DEFINE FIELD commands into the SQL/DS 
ROUTINE table. 






I DLZEXDFM - Extract Defines Utility Error Message Handler 



This module is used to contain, select, and format error messages for the Extract 
Defines utility. Given a message number in register one, the module will select the 
matching message and format it, by inserting an arbitrary number of additional 
character strings addressed by specific registers. Control is returned to 
DLZEXDFP who in turn calls routine TRTMSG' to print the message. 

Entry Register Contents - DLZEXDFM 

Rl Message number 

R2 Message Buffer Address 

R13 Save area 

R14 Return Address 

R15 Entry point 

Additionally, any registers are passed that have been defined to contain pointers to 
character strings to be inserted into the message. 
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This table gives the following information for all DL/I DOS/VS modules: 

• Core Image Library 

The name of the DL/I DOS/VS phase residing in the core image library. 

• CSECT(s) / Entry Point(s) 

The CSECTs that comprise each PHASE. Any indented name under a 
CSECT is an entry point within that CSECT. If the indented name is preceded 
by '*', it designates a routine within the CSECT and may, or may not, appear 
on the link-edit map. Unreferenced entry points have been omitted. 

• Relocatable Library 

The name(s) of the module(s) in the relocatable library that are needed for 
linkage editing. 

• Source Library 

The name(s) of the module(s) in the source statement library. For each 
module, source code listings are available on microfiche (under the module 
name). 

• Storage ID 

The storage ID for the applicable modules. This is located near the beginning 
address of each module and is usually followed by the version, release level, 
and latest PTF level applied. 

• Supplementary Information 

The entry SVA means the module concerned is eligible to be loaded into the 
shared virtual area (SVA). Any other entry in this column is the entry point 
name that must be present on the END statement when assembling this 
module, for example, END DLZBEGIN. 

Note: The figure number shown after the descriptive name refers to the figure 
number of the module's HIPO diagram in " Section 2: Method of Operation", 
Data Language /I Disk Operating System /Virtual Storage (DL/I DOS/VS) Logic 
Manual, Volume 2, LY24-5215. 
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System Control Modules 

Core CSECT(S)/ \^y 

Image Entry Relo Source Storage Suppl 
Library Point (s) Library Library ID Inf 

** Batch Initialization ** (See Figure 2-3.) 

DLZRRCOO DLZRRCOO DLZRRCOO DLZRRCOO DLZRRCOO DLZRRCST 
*ERRORMSG 

DLZMMSGT DLZMMSGT DLZMMSGT DLZMMSGT 
DLZRDR 
DLZCONSL 
DLZRRC10 

♦DLZ2MSGT DLZ2MSGT 

*DLZ3MSGT DLZ3MSGT 

*DLZ4MSGT DLZ4MSGT 

*DLZRRA00 
*DLZPCC00 
*DLZDBLM0 
*LOADDMBS 

*PCBROUT ^ \ 

*DLZCPIOO i 

*DMBLOADR V y 



** Batch Nucleus ** (See Figure 2-4.) 

DLZBNUCO SCDCSECT DLZBNUCO DLZBNUCO DLZBNUCO 
SCDSTART 
*DLZIWAIT 
*DLZPRHB0 
*DLZ ABEND 
DLZEIPI DLZEIPBO DLZEIPBO DLZEIPBO 



** Online Initialization ** (See Figure 2-5.) 

DFHDIDL DLIOLI00 DLZOLI00 DLZOLI00 DLZOLI00 
♦DLZCPIOO 
INITLODR 
DLIOLI10 
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Core CSECT(S)/ 










Image Entry 


Relo 


Source 


Storage 


Suppl 


Library Point (s) 


Library 


Library 


ID 


Inf 


** Online Nucleus ** (See Figure 2-6.) 








DLZEIPOO 










DLZNUCxx DLZODP 


DLZODP 


DLZODP 


DLZNUCXX 




DLZODP00 










DLZSCHDL 










DLZODP03 










DLZODP02 






DLZODP02 




DLZODP04 






DLZODP04 




1 DLZODP07 






DLZODP07 




DLZODP06 










DLZODP01 






DLZODP01 




DLZTKTRM 










DLZTKBAD 










DLZODP05 






DLZODP05 




DLZPRHOO 






DLZPRHOO 




DLZABNDO 










DLZOLT00 






DLZOLT00 




DLZOLT02 










DLZOLT01 










DLZOWAIT 






DLZOWAIT 




DLZOVSEX 






DLZOVSEX 




DLZERMSG 






DLZERMSG 




DLZODP 10 






DLZODP 10 




DLZODP 11 






DLZODP 1 1 




DLZEIPI 


DLZEIPOO 


DLZEIPOO 


DLZEIPOO 




DLZSTRO0 


DLZSTROO 


DLZSTROO 


DLZSTROO 




DLZCOM00 


DLZCOM00 


DLZCOM00 


DLZCOM00 




| DLZCOM01 






DLZCOM01 




DLZLOC00 


DLZLOC00 


DLZLOC00 


DLZLOC00 




| DLZLOC01 






DLZLOC01 




DLZODPEX 






DLZODPEX 




DLZNUC 










SCDSTART 










DLZEIPL 










DLZMMSGT 


DLZMMSGT 


DLZMMSGT 


DLZMMSGT 




*DLZ2MSGT 






DLZ2MSGT 




*DLZ3MSGT 






DLZ3MSGT 




*DLZ4MSGT 






DLZ4MSGT 




DLZFTDPO 


DLZFTDPO 


DLZFTDPO 


DLZFTDPO 




DLZISCOO 


DLZISCOO 


DLZISCOO 


DLZISCOO 




DLZISC01 






DLZISC01 




DLZISC02 






DLZISC02 




DLZISC03 






DLZISC03 




Note: xx is the suffix specified during ACT generation. 







** DL/I Online System Termination ** (See Figure 2-7.) 

DLZSTPOO DLZSTPOO DLZSTPOO DLZSTPOO DLZSTPOO 
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DL/I Facility Modules 



Core 

Image 

Library 



CSECT(S)/ 
Entry 
Point (s) 






Relo 
Library 



** Call Analyzer ** (See Figure 2-8.) 

DLZDLAOO DLZDLAOO DLZDLAOO 



DLZDLAO 1 



DLZDLAO 1 



Source 
Library 



DLZDLAOO 
DLZDLAO 1 



Storage 
ID 



DLZDLAOO 
DLZDLAO 1 



Suppl 
Inf 



SVA 
DLZEPDLA 



** Retrieve ** (See Figure 2-9.) 



DLZDLROO 



DLZDLROO 
DLZDLR10 
DLZRETNO 
DLZEODCO 
DLZGERCO 
DLZGERO 
DLZGETSO 

DLZCLRPO 
DLZWIPEO 



DLZDLRAO 



DLZDLRAO 



DLZDLRAO 



SVA 



DLZDLRBO 



DLZDLRBO 



DLZDLRBO 



DLZMOVAO 

DLZMOVBO 

DLZDELTO 

DLZPSDBO 

DLZHUNTO 

DLZSETLO 

DLZBHO 

DLZSSDBO 

DLZNOOPO 

DLZCONCO 

DLZRLNKD 

DLZPOSTO 
DLZSKPGO 
DLZSKPSO 
DLZSKPDO 
DLZSKPEO 

DLZHIDAO 
DLZHDAMO 
DLZHISAO 
DLZSTLAO 
DLZSTLGO 
DLZUPDTO 
DLZKDTEO 
DLZPCHKO 

DLZSSAO 
DLZTAGO 
DLZLTWO 
DLZNOSSO 

DLZISRTO 
DLZVLRTO 
DLZAREJO 
DLZVLCHO 
DLZXDFTO 
DLZHSAMO 
DLZALTSO 
DLZFLDO 

DLZLOGRO 



DLZRLNKD 
DLZDLRGO 



DLZDLREO 



DLZRLNKD 
DLZDLRGO 



DLZDLREO 



DLZRLNKD 
DLZDLRGO 



DLZDLREO 
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v.. 



DLZDLRCO 



DLZDLRFO 



DLZDLRCO DLZDLRCO 



DLZDLRFO DLZDLRFO 



DLZDLRDO 



DLZDLRDO DLZDLRDO 



C 
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DLZRETKO 

DLZRETIO 

DLZKDRKO 

DLZKDTLO 

DLZUPDCO 

DLZUPDLO 

DLZAPSTO 

DLZYENTO 

DLZYSTCO 

DLZYENDO 

DLZDEQO 

DLZLPSLO 



Relo 
Library 



Source 
Library 



Storage 
ID 



Suppl 
Inf 



** Load/Insert ** (See Figure 2-10.) 

DLZDDLEO DLZDDLEO DLZDDLEO 
HDROUTIN 
VLROUTIN 
HSROUTIN 



DLZDDLEO 



DLZDDLEO 



SVA 



** Delete/Replace ** (See Figure 2-11.) 

DLZDLDOO DLZDLDOO DLZDLDOO 
DLZDLDAO 
DLZDLDDO 
DLZDLDRO 



DLZDLDOO 



DLZDLDOO 



SVA 



C 



** Index Maintenance ** (See Figure 2-12.) 

DLZDXMTO DLZDXMTO DLZDXMTO DLZDXMTO 



** HD Space Management ** (See Figure 2-13.) 



DLZDHDSO 



DLZDHDSO 
*GETSPACE 
*CALCSRLM 
*SRCHPOOL 
*SRCHBTMP 
*FRESPACE 
*SRCHBLK 
♦FORMAT 
*BITMPLOC 
♦BITMPOFF 
*BITMPON 
*DEVCHARI 
DFSRLO30 
SNAPDCB 
SNPSW 
SNPCNT 



DLZDHDSO 



DLZDHDSO 



DLZDXMTO 



DLZDHDSO 



SVA 



SVA 



** Open/Close ** (See Figure 2-14.) 

DLZDLOCO DLZDLOCO DLZDLOCO DLZDLOCO 



DLZDLOCO 



f"*\ 
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Relo 
Library 



DLZDBH02 



** DB Buffer Handler ** (See Figure 2-15.) 

DLZDBHOO DLZDBHOO DLZDBHO.O 
*MAINROUT 

ROULINK 
♦PREPENQ 



♦PREPDEQ 

*ABEXIT 

*BOTTOUSE 

♦ALLDEQ 

♦BFFERREL 

♦RETURN 

DLZDBH02 

♦WRITE 

♦READ 

♦HSREAD 

♦HSWRITE 

♦LOWRITE 

♦PUTKY 

♦MSPUT 

♦STLEQ 

♦STLBG 

♦GETNX 

DETIOERR 
♦TSTPST1 
DLZDBH03 
♦MRKEMPT 
♦PGUSR 



Source 
Library 



DLZDBHOO 



Storage 
ID 



Suppl 
Inf 
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DLZDBHOO SVA 



DLZDBH02 



DLZDBH02 



DLZDBH03 



DLZDBH03 



DLZDBH03 



** DB Logger ** (See Figure 2-16.) 



DLZRDBLO 



(DLZRDBLO) 



DLZRDBLO 
DLZIDBLO 
IOFILA1 
LOGOUT 
LSCDADDR 

IJFUZZZN 
IJFUZZZZ 

IJ2Nnnnn 

ONLLOGWR 

SAVE 

PRIVECB 



DLZRDBLO 



IJFUZZZN 



DLZRDBLO 



DLZRDBLO 



DLZRDBLO 






DLZRDBLO 



** CICS/VS Journal Logger ** (See Figure 2-17.) 

DLZRDBL1 DLZRDBL1 DLZRDBL1 DLZRDBL1 
DLZIDBLO 



DLZRDBL1 



** Queuing Facility ** (See Figure 2-23.) 

DLZQUEFO DLZQUEFO DLZQUEFO 



DLZQUEFW 



DLZQUEFW 



DLZQUEFW 



DLZQUEFO 
DLZQUEFW 



DLZQUEFO 
DLZQUEFW 



** Field Level Sensitivity Copy ** (See Figure 2-41.) 

DLZCPY10 DLZCPY10 DLZCPY10 DLZCPY10 DLZCPY10 
DLZSEGCV DLZSEGCV 



SVA 
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Core 

Image 

Library 
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Entry 
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Relo 
Library 



Source 
Library 



** MPS Start Transaction ** (See Figure 2-18.) 

DLZMSTRO DLZMSTRO DLZMSTRO DLZMSTRO 



Storage 
ID 



DLZMSTRO 



Suppl 
Inf 



** Master Partition Controller ** (See Figure 2-19.) 

DLZMPCOO DLZMPCOO DLZMPCOO DLZMPCOO 



DLZMPCOO 



** Batch Partition Controller ** (See Figure 2-20.) 

DLZBPCOO DLZBPCOO DLZBPCOO DLZBPCOO 
DLZLI000 



DLZBPCOO 



** MPS Batch Initialization ** (See Figure 2-21.) 



DLZMPIOO 



DLZMPIOO 

*DLZMPRH 

*DLZMINIT 

*DLZMTERM 

*DLZ2MSGT 

*DLZ3MSGT 

*DLZ4MSGT 

*DLZMMSG 

*DLZMABND 

DLZCONSL 

DLZDIMOD 

DLZEIPI 

DLZMMSGT 



DLZMPIOO 



DLZEIPBO 
DLZMMSGT 



DLZMPIOO 



DLZEIPBO 
DLZMMSGT 



DLZMPIOO 



DLZ2MSGT 
DLZ3MSGT 
DLZ4MSGT 



DLZEIPBO 
DLZMMSGT 



** Stop Transaction ** (See Figure 2-22.1.) 

DLZMSTPO DLZMSTPO DLZMSTPO 



DLZMSTPO 



DLZMSTPO 



** Purge Temporary Storage Transaction ** (See Figure 2-22) 

DLZMPURO DLZMPURO DLZMPURO DLZMPURO 



DLZMPURO 



C 
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Data Base Recovery Utilities 
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Image 


Entry 


Relo 


Source 


Storage 


Suppl 


Library 


Point (s) 


Library 


Library 


ID 


Inf 


** DB Data Set Image Copy 


** (See Figure 


2-25.) 






DLZUDMPO 


DLZUDMPO 


DLZUDMPO 


DLZUDMPO 


DLZUDMPO 




DLZPRNT 












DLZSLOG 












PRNTAREA 














IJ2Mnnnn 


DLZUDMPO 


DLZUDMPO 








DLZDMPMO 


DLZDMPMO 


DLZDMPMO 








IJJFCBZD 


IJJFCBZD 










IJFSZZWN 


IJFSZZWN 










IJFVZZWN 
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DB Change Accumulation ** (See Figure 2-26.) 

DLZUCUMO DLZUCUMO 



DLZUCUMO 



DLZUCUMO 
DLZERRTN 
DLZUSPKL 
DLZWORK# 
DLZPR.NT 
DLZSLOG 
DLZUCONS 
DLZUCCTO 
DLZUC150 

DLZUEX15 
DLZUC350 

DLZUEX35 
DLZCUMMO 
IJFSZZWN 

IJFVZZWZ 
IJJFCBZD 

IJJFCIZD 
IJ2Mnnnn 
IJFUZZZZ 



DLZUCUMO 



DLZUCCTO 
DLZUC150 

DLZUC350 

DLZCUMMO 
IJFSZZWN 

IJJFCBZD 

DLZUCUMO 
IJFUZZZZ 



DLZUCCTO 
DLZUC150 

DLZUC350 

DLZCUMMO 



DLZUCUMO 



DLZUCCTO 
DLZUC150 

DLZUC350 

DLZCUMMO 



V 



** DB Data Set Recovery ** 

DLZURDBO DLZURDBO 
DLZURCCO 
DLZLIOOO 

CDLTDLI 
DLZRDBMO 
IJJFCBID 

IJJFCBZD 

IJJFCIID 
IJFSZZWN 

IJFVZZWN 
IJ2Mnnnn 
IJFUZZZN 



(See Figure 2-27.) 

DLZURDBO DLZURDBO 
DLZURCCO DLZURCCO 
DLZLIOOO DLZLIOOO 



DLZRDBMO 
IJJFCBID 



IJFSZZWN 

DLZURDBO 
IJFUZZZN 
IJGUICZZ 
IJGQICZZ 



DLZRDBMO 



DLZURDBO 
DLZURCCO 
DLZLIOOO 

DLZRDBMO 



V_ 



J 



DLZURBDO 
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ID 
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** DB Change Backout ** (See Figure 2-28.) 








DLZBACKO DLZBACKO 


DLZBACKO 


DLZBACKO 


DLZBACKO 




READAREA 










DLZPRNT 










DLZSLOG 










DLZRDBCO 


DLZRDBCO 


DLZRDBCO 


DLZRDBCO 




DLZBACMO 


DLZBACMO 


DLZBACMO 


DLZBACMO 




DLZLI000 


DLZLI000 


DLZLI000 


DLZLI000 




ASMTDLI 










IJFUBZZZ 


IJFUBZZZ 








IJJFCBZD 


IJJFCBZD 








IJJFCIZD 










IJ2Mnnnn 


DLZBACKO 


DLZBACKO 






** Log Print Utility ** (See Figure 2-40.) 








DLZLOGP0 DLZLOGP0 


DLZLOGPO 


DLZLOGPO 


DLZLOGPO 


DLZLOGPE 


DLZLGPCN 










DLZLGPMT 










DLZLPCCO 


DLZLPCCO 


DLZLPCCO 


DLZLPCCO 




DLZLGPMO 


DLZLGPMO 


DLZLGPMO 






IJJFCBID 


IJJFCBID 








IJJFCIID 










IJFUZZZN 


IJFUZZZN 









( 



t 
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Image Entry 


Relo 
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Storage 
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Library 


Library 


ID 


Inf 


**HSDB Unload** (See Figure 2-29.) 








DLZURULO DLZURULO 


DLZURULO 


DLZURULO 


DLZURULO 




DLZRULMO 


DLZRULMO 


DLZRULMO 






IJJFCBZD 


IJJFCBZD 








IJFVZZWN 


IJFVZZWN 








DLZCONSL 










** HS DB Reload ** (See Figure 2-30.) 








DLZURRLO DLZURRLO 


DLZURRLO 


DLZURRLO 


DLZURRLO 




DLZRRLMO 


DLZRRLMO 


DLZRRLMO 






IJJFCBZD 


IJJFCBZD 








IJFVZZWN 


IJFVZZWN 








IJFVZZWZ 










DLZCONSL 










** HD DB Unload ** (See Figure 2-31.) 








DLZURGUO DLZURGUO 


DLZURGUO 


DLZURGUO 


DLZURGUO 




DLZCONSL 










DLZLI000 


DLZLI000 


DLZLI000 


DLZLI000 




CBLTDLI 










DLZRGUMO 


DLZRGUMO 


DLZRGUMO 






IJJFCBZD 


IJJFCBZD 








IJFUZZZN 


IJFUZZZN 








IJGUOCZZ 


IJGUOCZZ 








IJGUICZZ 


IJGUICZZ 
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** HD DB Reload ** (See Figure 2-32.) 



DLZURGLO 



DLZURGLO 
DLZLI000 

CBLTDLI 
DLZRGLMO 
IJJFCBZD 
IJGQICZZ 

IJGVICZZ 
IJFSZZWN 

IJFVZZZN 



DLZURGLO 
DLZLI000 

DLZRGLMO 
IJJFCBZD 
IJGQICZZ 

IJFSZZWN 



DLZURGLO 
DLZLI000 

DLZRGLMO 



DLZURGLO 
DLZLI000 
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** ACB Creation ** (See Figure 2-33.) 








DLZUACBO 


DLZUACBO 
PRTMSG 


DLZUACBO 


DLZUACBO 


DLZUACBO 






DLZDLBLO 


DLZDLBLO 


DLZDLBLO 


DLZDLBLO 






PSBPASS 










■ 


DLZDLBL4 










1 


DLZDLBPP 


DLZDLBPP 


DLZDLBPP 


DLZDLBPP 






DLZDLBL1 


DLZDLBL1 


DLZDLBL1 


DLZDLBL1 




1 


DLZDLBDP 


DLZDLBDP 


DLZDLBDP 


DLZDLBDP 






DLZDLBL2 


DLZDLBL2 


DLZDLBL2 


DLZDLBL2 






DLZDLBL3 


DLZDLBL3 


DLZDLBL3 


DLZDLBL3 






FREESTOR 












IJSYSLN 












PCHDTF 












DLZLBLMO 


DLZLBLMO 


DLZLBLMO 


DLZLBLMO 






DLZUSCHO 


DLZUSCHO 


DLZUSCHO 


DLZUSCHO 






INSRCH 






y 






CLOSESCH 












DLZDPSBO 


DLZDPSBO 


DLZDPSBO 


DLZDPSBO 






IJJCPD1N 


IJJCPD1N 










IJJFCBZD 


IJJFCBZD 










IJJFCIZD 











c 



c 
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ID 
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** Prereorganization ** (See 


: Figure 2-35.) 








DLZURPRO DLZURPRO 


DLZURPRO 


DLZURPRO 


DLZURPRO 




DLZLI000 


DLZLIOOO 


DLZLIOOO 


DLZLIOOO 




ASMTDLI 










DLZURGMO 


DLZURGMO 


DLZURGMO 






IJJFCBZD 


IJJFCBZD 








IJGFOCZZ 


IJGFOCZZ 








** DB Scan ** (See Figure 2-36.) 








DLZURGSO DLZURGSO 


DLZURGSO 


DLZURGSO 


DLZURGSO 




DLZCONSL 










DLZURGMO 


DLZURGMO 


DLZURGMO 






DLZLI000 


DLZLIOOO 


DLZLIOOO 


DLZLIOOO 




ASMTDLI 










IJJFCBZD 


IJJFCBZD 








IJJFCIZD 










IJFSZZWN 


IJFSZZWN 








IJFVZZZN 










IJGQICZZ 


IJGQICZZ 








IJGVICZZ 










IJGFICZZ 


IJGFICZZ 








** Prefix Resolution ** (See 


Figure 2-37.) 








DLZURG10 DLZURG10 


DLZURG10 


DLZURG10 


DLZURG10 




DLZURGMO 


DLZURGMO 


DLZURGMO 






IJJFCBZD 


IJJFCBZD 








IJJFCIZD 










IJGFICZZ 


IJGFICZZ 








IJGQICZZ 


IJGQICZZ 








IJGVICZZ 










IJFSZZWN 


IJFSZZWN 








IJFVZZZN 










IJFVZZWN 










IJFFZZZN 


IJFFZZZN 








IJGQOCZZ 


IJGQOCZZ 








IJGVOCZZ 










DLZX15S1 


DLZURG10 


DLZURG10 






DLZX15S2 










DLZX35S1 










DLZX35S2 
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Prefix Update ** (See Figure 2-38.) 



DLZURGPO 



DLZURGPO 
DLZURGMO 
DLZLIOOO 
ASMTDLI 
CBLTDLI 
IJJFCBZD 



DLZURGPO 
DLZURGMO 
DLZLIOOO 



IJJFCBZD 



DLZURGPO 
DLZURGMO 
DLZLIOOO 



DLZURGPO 
DLZLIOOO 



O 
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** Work File Generator ** (See Figure 2-39.) 

DLZDSEHO DLZDSEHO DLZDSEHO 


DLZDSEHO 


DLZDSEHO 


DLZBE< 




DLZBEGIN 












OPENWORK 












IJFSZZWN 


IJFSZZWN 










IJFVZZWN 












IJGFICZZ 


IJGFICZZ 










IJGQOCZZ 
IJGVOCZZ 


IJGQOCZZ 









c 
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** System Formatted Dump ** 

DLZFSDPO DLZFSDPO DLZFSDPO 

DLZCBDPO 



DLZFSDPO DLZFSDPO 
DLZCBDPO DLZCBDPO 
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** DL/I Tracing Facility ** 

user DLZTRACE user 

chosen chosen 

DLZTRPRO DLZTRPRO 

IJJFCBIC IJJFCBIC 



DLZTRACE DLZTRACE 
DLZTRPRO DLZTRPRO 



** DL/I Test Program - Batch ** 

DLZDLTXX DLITCBL DLZDLTXX 
DLZSNAP 
DLZLIOOO DLZLIOOO 

CBLTDLI 
IJGFIZZZ IJGFIZZZ 
IJJFCBID IJJFCBID 

IJJFCIID 



DLZDLTXX 
DLZLIOOO 



DLZDLTXX 
DLZLIOOO 



** DL/I Test Program - Online ** 



DLZDLTXY 



DLITCBL 
DLZSNAP 
DLZLIOOO 

CBLTDLI 
IJGFIZZZ 
IJJFCBID 

IJJFCIID 



DLZDLTXY 

DLZLIOOO 

IJGFIZZZ 
IJJFCBID 



DLZDLTXY DLZDLTXY 
DLZLIOOO DLZLIOOO 



4' ' 
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** Online Task Formatted Dump ** 

DLZFTDPO DLZFTDPO DLZFTDPO DLZFTDPO DLZFTDPO 

DLZCBDPO DLZCBDPO DLZCBDPO 



** Run and Buffer Statistics ** (See Figure 2-43.) 

DLZSTTL DLZSTTL DLZSTTL DLZSTTL DLZSTTL 



** Trace Print Utility ** (See Figure 2-42.) 



DLZTPRTO 



DLZTPRTO 
DLZTPRMO 
IJJFCBIC 
IJJFCIZD 
IJFVZZZZ 
IJGVIEZZ 
IJ2Mnnnn 



DLZTPRTO 
DLZTPRMO 

IJJFCIZD 
IJFVZZZZ 
IJGVIEZZ 
IJ2Mnnnn 



DLZTPRTO 
DLZTPRMO 



DLZTPRTO 



DLZTPRTE 
DLZTPRMO 



C 



4-14 DL/I DOS/VS Logic Manual, Volumel 



Licensed Material — Property of IBM 



Core 


CSECT(S)/ 










Image 


Entry 


Relo 


Source 


Storage 


Suppl 


Library 


Point (s) 


Library 


Library 


ID 


Inf 


** HD Partial Reorganization Utility ** (See 


Figure 2-44.) 






DLZPRABC 


DLZPRABC 


DLZPRABC 


DLZPRABC 


DLZPRABC 




DLZPRCLN 


DLZPRCLN 


DLZPRCLN 


DLZPRCLN 


DLZPRCLN 




DLZPRCT1 


DLZPRCT1 
COMAREA 
IJJFCBZD 
IJJFCIZD 


DLZPRCT1 
IJJFCBZD 


DLZPRCT1 


DLZPRCT1 




DLZPRCT2 


DLZPRCT2 

W0RK1 

COMAREA 


DLZPRCT2 


DLZPRCT2 


DLZPRCT2 






DLZLI000 


DLZLI000 


DLZLI000 


DLZLI000 






ASMTDLI 












CBLTDLI 












PLITDLI 












RPGTDLI 












IJJFCBZD 


IJJFCBZD 










IJJFCIZD 










DLZPRDBD 


DLZPRDBD 


DLZPRDBD 


DLZPRDBD 


DLZPRDBD 




DLZPRDLI 


DLZPRDLI 


DLZPRDLI 


DLZPRDLI 


DLZPRDLI 




DLZPRERR 


DLZPRERR 


DLZPRERR 


DLZPRERR 


DLZPRERR 




DLZPRPAR 


DLZPRPAR 


DLZPRPAR 


DLZPRPAR 


DLZPRPAR 




DLZPRPSB 


DLZPRPSB 


DLZPRPSB 


DLZPRPSB 


DLZPRPSB 




DLZPRREP 


DLZPRREP 


DLZPRREP 


DLZPRREP 


DLZPRREP 




DLZPRSCC 


DLZPRSCC 


DLZPRSCC 


DLZPRSCC 


DLZPRSCC 




DLZPRSTC 


DLZPRSTC 


DLZPRSTC 


DLZPRSTC 


DLZPRSTC 




DLZPRSTW 


DLZPRSTW 


DLZPRSTW 


DLZPRSTW 


DLZPRSTW 




DLZPRUPD 


DLZPRUPD 


DLZPRUPD 


DLZPRUPD 


DLZPRUPD 




DLZPRURC 


DLZPRURC 


DLZPRURC 


DLZPRURC 


DLZPRURC 




DLZPRWFM 


DLZPRWFM 


DLZPRWFM 


DLZPRWFM 


DLZPRWFM 
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Section 5. Data Areas 



This section describes the major data areas used by DL/I DOS/VS. The 
description of each data area generally includes: 

Its DSECT name. 



The symbolic names of the fields and flags. 

The displacement of each field, in both decimal and hexadecimal. 



The length of each field. 

An alphabetic listing of all field and flag names. 



The hexadecimal code of each flag. 



The data areas are documented in alphabetical order as listed in the Contents of 
this publication. 

This section also describes the DL/I partition in a batch environment and 
illustrates the relationship of the DL/I control blocks. In addition, the description 
and general structure is given for the data management block (DMB), the program 
specification block (PSB), and the DL/I buffer pool control blocks. 



The DL/I Partition and Control Block Relationship 



c 



The DL/I Batch Partition 



c 






The following text describes the DL/I partition in a batch environment and 
illustrates the relationship of the DL/I control blocks described in this section. 



Figure 5-1 on page 5-3 is a map of main storage in the DL/I DOS/VS batch 
partition. Storage is allocated from the bottom or lowest storage address to the top 
or highest storage address of the partition. The eight areas in the DL/I batch 
partition are as follows: 

• Area 1 contains the DL/I nucleus. The SCD is the first control block in the 
nucleus and contains the DL/I copyright information. This block also contains 
the entry point address for every module in the DL/I system. The PST prefix, 
PST, and PSB directory (PDIR) are in this area. There is one entry in the PSB 
directory (PDIR). 

• Area 2 contains the DL/I program request handler, DLZPRHBO, which is 
loaded during DL/I initialization. It is part of the batch nucleus module 
(DLZBNUCO). 

• Area 3 contains the PSB intent list (PSIL), PSB, and one DMB directory 
(DDIR) entry for each DMB referenced by the PSB. The DMB directory is 
created dynamically during DL/I initialization. 

• Area 4 contains DMBs loaded from the DOS/VS Core Image Library by the 
DL/I Batch Initialization module. Randomizing modules are loaded after the 
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DMBs for HDAM. They are followed by VS AM control blocks, index 
management modules if secondary indexes are used, and by segment 
compression modules if variable length segments are used. 

Area 5 contains the DL/I buffer pool control blocks. These blocks are created 
dynamically. There are one buffer pool prefix, one subpool information table 
for each subpool specified, one DMB subpool directory entry for each DMB, 
and 2-32 buffer prefixes for each subpool specified. 

Area 6 contains the DL/I I/O buffers which comprise the buffer pool. There 
are 2-32 buffers for each subpool specified. Each subpool is aligned on a 2K 
page boundary. 

Area 7 contains the DL/I action modules and the user trace module if 
requested. 

Area 8 contains the user batch application program. 
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HIGH STORAGE 
LOCATION 



PAGE BOUNDARY 

► 



PAGE BOUNDARY 



PAGE BOUNDARY 



LOW STORAGE 
LOCATION 



DL/I BATCH APPLICATION PROGRAM 



TRACE MODULE - (USER NAMED) 



OPEN/CLOSE - DLZDLOCO 



LOAD/INSERT - DLZDDLEO 



SPACE MANAGEMENT - DLZDHDSO 



INDEX MAINTENANCE - DLZDXMTO 



DELETE/REPLACE - DLZDLDOO 



CALL ANALYZER - DLZDLAOO 



DATA BASE LOGGER - DLZRDBLO 



DL/I RETRIEVE - DLZDLROO 



DB BUFFER HANDLER - DLZDBHOO 



BUFFER POOL (NOTE) 



BUFFER POOL CONTROL BLOCKS (NOTE) 



VSAM CONTROL BLOCKS, INDEX MANAGEMENT MODULES, 
AND SEGMENT COMPRESSION MODULES 



DMB POOL AND RANDOMIZING MODULES 



PSB INTENT LIST AND PSB 



DMB DIRECTORY (NOTE) 



APPLICATION PROGRAM REQUEST HANDLER - DLZPRHBO 



DL/I NUCLEUS - DLZBNUCO 
SCD - PST PREFIX - PST - PSB DIRECTORY 



DLZRRCOO - PARTLY OVERLAID BY DLZBNUCO 



NOTE: BLOCKS DYNAMICALLY CREATED OR FORMATTED 



AREA 



Figure 5-1. Map of Main Storage in the DL/I Batch Partition 
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DL/I Control Block Relationship 



The purpose of this section is to show the relationships of the various DL/I control 
blocks and provide a means by which the user can quickly find these control 
blocks. The following discussion references Figure 5-2 on page 5-6 and Figure 5-3 
on page 5-7. (Figure 5-2 on page 5-6 shows the DL/I control block relationships 
in the batch environment; Figure 5-3 on page 5-7 shows these relationships in the 
online environment.) 

The SCD is the major control block in the DL/I system. It is located in the DL/I 
nucleus. The SCD contains DL/I copyright information, entry point addresses of 
DL/I routines, and pointers to the following DL/I control blocks: 

• The buffer pool prefix, which is the first block of the buffer pool control 
blocks. 

• The PSB directory from which the PSB and PSB intent list may be obtained. 
In a batch system, there is only one PSB directory entry. In an online system, 
there may be many PSB directory entries. 

• The DMB directory. There is one DMB directory entry for each DMB 
referenced by the PCBs. 

• The first PST prefix from which the first PST may be obtained. There is only 
one PST prefix in a batch system. 

The PST provides task-local storage for batch and CICS/DOS/VS - DL/I online 
tasks while they are being served by DL/I. The address of the PST is contained in 
the PST prefix. The following pointers are available in the PST: 



Caller's (user program) parameter list 

SCD 

PSB directory for the task 

PCB currently being accessed 

I/O buffer to be used for the data base call (used by the buffer handler) 

Subpool information table assigned to the data base (used by the buffer 
handler) 

Buffer prefix which points to the I/O buffer containing the segment for the call 
(used by the buffer handler) 

There is one PSB directory entry and one PSB for each program that may issue 
DL/I calls or commands. In a CICS/DOS/VS - DL/I online environment, the 
maximum is 255; in batch, there can be only one. The PSB directory entry 
contains address pointers to the PSB and the PSB intent list. 

The PSB intent list is a variable-length control block and contains an entry for each 
DMB referenced by the PSB. Each entry contains the address of the DMB. 

The PSB contains prefix information and one or more PCBs. For each PCB there 
is a JCB, which is made up of the following: JCB prefix, level table, and one or 



'O' 



4 ~"\ 
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more SDBs. The PCB points to the JCB. The JCB contains working storage for 
the program's use of that data base and points to the level table. The JCB also 
points to the SDB for the root segment and the VSAM ACB for the data base 
(KSDS ACB if HIS AM). The level table contains working storage for DL/I to 
store its positioning data for each level of the data base. The level table points to 
the current level SDB. 

The SDB describes the user's logical use of the sensitive segment. There is one 
SDB for each segment to which the user is sensitive. Each SDB points to the 
corresponding PSDB in the DMB. 

The DMB directory entry contains the address of the DMB. Each DMB contains a 
prefix, one ACB extension for each data set in the DMB (HISAM has two data 
sets), one PSDB for each physical segment type, and one FDB for each field 
defined for a segment. In addition, there is one direct algorithm communication 
table (DMBDACS) if HDAM is used, and secondary list entries if HID AM or 
HDAM with index or logical relationships is used. 

The DMB prefix contains: 

• A two-byte relative offset to the first PSDB 

• A two-byte relative offset to the end of the last PSDB+ 1, which is either the 
first secondary list entry (HID AM) or the first FDB 

• A four-byte pointer to DMBDACS if HDAM 

The ACB extension contains information about the data set as well as pointers to 
the VSAM ACB and RPL for the data set. Each PSDB contains: 

• A pointer to the first FDB for the segment 

• A pointer to the SDB for the active PCB which is sensitive to this segment 
type. If more than one PCB is sensitive to this segment type, the address of 
the SDB for the next PCB is contained in the active PSDB. 

The DMBDACS contains the address of the user's randomizing routine; most of 
the secondary list entries point to the DMB directory for the described index or 
logically related data base. 

The following items may be obtained from the buffer pool prefix: 

• The first subpool information table (immediately following the buffer pool 
prefix) 

• A pointer to the first buffer prefix 

• A pointer to the first DMB subpool directory entry 

The buffer prefix contains a pointer to the I/O buffer which it references. 
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8 (08) DDIRADDR 



DMB 



DMB Prefix 



2 (02) DMBLENTB 
4 (04) DMBSECTB 
12 (0C) DMBDALGR 



DL/I ACB Extension 



(00) DMBACBAD 
52 (34) DMBACBRP 



ACB Extension 



HISAM ESDS 



ACB (VSAM) 



ACB (HISAM) 



DMBDACS (HDAM) 



9 (09) DMBDAEP 



DMBCPAC (HD) 



DMBXMPRM (HD) 



DMBPSDB-i 



16 (10) DMBFDBA 
20 (14) DMBFSDB 



DMBPSDB n 



DMBSEC (HIDAM) 



FDBt 



FDB n 



Tape or DASD 
I/O Module 



PSB Intent List 



•— 0(00) PSILDIRA 



["nucl- 



eus 



n 



SCD 



RPL (HISAM) 



148 (94) 
217 (D9) 
220 (DC) 
228 (E4) 
236 (EC) 



SCDDBLNT 

SCDDBFA 

SCDDLIPS 

SCDDLIDM 

SCDPPSTS 



c 



300(120 SCDEXTBA 



-SE 



Buffer Pool 
Control Blocks 



SCD Extension 



8 (08) SCDABSV 



PSB Directory 



20 (14) PDIRSILA 
8 (08) PDIRADDR 



5 (05) PPSTCA 



PST 



E~^ 



Current PCB 
Note 1- 



PSB 



User Random 
Module 



t 



User Compression 
Module 



Note 2-* 

B 



User Index Module 



|— | (00) JCBLEVTB 

8 (08) JCBSDB1 

16(10) JCBTRACE 

164 (A4) JCBDCBA 
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PCB 



12 (0C) DBPCBPRO 
16 (10) DBPCBJCB 

JCB 



8 (08) LEVSDB 
24(18) LEVFLD 



SDBi 



20 (14) SDBPSDB 
56 (38) SDBXPANS 



SDB n 



(00) 
68 (44) 
72 (48) 
88 (58) 
132 (84) 
136 (88) 
156 (9C) 
160 (A0) 
164 (A4) 
168 (A8) 
596 (254) 



PSTREAD 

PSTSCDAD 

PSTIQPRM 

PSTPSB 

PSTDBPCB 

PSTFNCTN 

PST DATA 

PSTBUFFA 

PSTBFUSE 

PSTSUIN 

PSTFLD 



• Note 8 
- Note 5 



Note 6 
• Note 7 
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FSBt 




Field Exit Routine 
Table Entry 1 


24 (18) FSBFERTA 
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12 (0C) FERTRTLG 


5 FSB n - 
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User Field 
Exit Routine 
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Buffer Pool Prefix 



128(80) BFPLPRAD 
132 (84) BFPLSUBD 
136(88) BFPLSUIN 



Subpool Information 
Table •] 



Subpool Information 
Table n 



DMBSP DIR 



12 (0C) BFFRADDR 



I/O Buffers 

:£ ^ 



1 



JT 



/ 



Notes: 



1 . PCB shows the processing option from PSBGEN and segment name feedback. 

2. JCBTRACE functions and return codes. 

3. Pointer STXIT ABEND save area. 

4. Pointer of DMB log module. 

5. Pointer to User Parameter List. 

6. PSTFNCTN and PSTRTCDE give the internal function and return code 
resulting from a call. 

7. Pointer to requested code. 

8. Address of SCD. 

9. These ACBs may not be valid at the time of a dump. The VSAM data sets 
may have been closed. 
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DMB Prefix 
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DL/I ACB Extension 
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FDBt 
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Tape or DASD 
I/O Module 



PSB Intent List 



■— (00) PSILDIRA 



HSIUCLEUS" 



RPL (HISAM) 



SCD 



Note 4- 
Note 8- 



148 (94) 
176 (B0) 
217 (D9) 
220 (DC) 
228 (E4) 
236 (EC) 



SCDDBLNT 

SCDQUEFW 

SCDDBFA 

SCDDLIPS 

SCDDLIDM 

SCDPPSTS 
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300 (12C) SCDEXTBA 



-m 



SCD Extension 



8 (08) SCDABSV 



PSB Directory 



20 (14) PDIRSILA 
8 (08) PDIRADDR 



PSB 




PCB 



12 (0C) DBPCBPRO 
(10) DBPCBJCB 

JCB 



(00) JCBLEVTB 

8 (08) JCBSDB1 

16(10) JCBTRACE 

164 (A4) JCBDCBA 

Level Table 



8 (08) LEVSDB 
24(18) LEVFLD 



20 (14) SDBPSDB 
56 (38) SDBXPANS 



5 (05) PPSTCA 



9 (09) PPSTTCA 



CICS/VSTCA 



(User Section) 
132 (84) TCADLPCB 



^E 



CICS/VS TCA 



(System Section) 

84 (54) TCADLII 

85 (55) TCADLIPA 

180 (B4) TCADLIBF 

181 (B5) TCADLIBA 
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(HLPI only) 
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1 32 (84) 
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PSTPREAD 

PSTSCDAD 

PSTIQPRM 

PSTPSB 

PSTDBPCB 

PSTFNCTN 

PSTDATA 

PSTBUFFA 

PSTBFUSE 

PSTSUIN 



H ^ 



572 (23C) PSTRRDF 

576 (240) PSTRRDL 

580 (244) PSTRPSTA 

596 (254) PSTFLD 





UIB 






(User Section) 












(System Section) 










SDIB 



-m 



Eft 



• Note 9 

• Note 5 



- Note 6 

- Note 7 



C 



16(10) RRDRDBP 



RPST 



25 (19) RPSTACTA 
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mA 




Buffer Pool 
Control Blocks 



Buffer Pool Prefix 



128 (80) BFPLPRAD 
132 (84) BFPLSUBD 
136(88) BFPLSUIN 



Subpool Information 
Table -| 



Subpool Information 
Table n 



Buffer Prefix -j 



12 (0C) BFFRADDR 



Buffer Prefix n ££ 



I/O Buffers 



TL 



1 



f 

© 
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Notes: 

1 



PCB shows the processing option from 
PSBGEN and segment name feedback. 



RPCB 



Field Exit Routine 
Table Entry 1 



24(18) FSBFERTA 


r 


12 (0C) FERTRTLG 


? FSB n ^ 


c 








User Field 
Exit Routine 



2. JCBTRACE functions and return codes. 

3. Pointer STXIT ABEND save area. 

4. Pointer to DMB log module. 

5. Pointer to User Parameter List. 

6. PSTFNCTN and PSTRTCDE give the 
internal function and return code 
resulting from a call. 

7. Pointer to requested code. 

8. Address of queuing facility work area. 

9. Address of SCD. 

10. The ACBs may not be valid at the time 
of a dump. The VSAM data sets may 
have been closed. 
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Data Management Block - DMB 



General Structure 



A skeleton DMB is created during DBD generation (DBDGEN) as part of the 
DBD. The DMB consists primarily of a description of each segment contained in 
the data base and information concerning the physical data base description. This 
is contained in ACB extensions or, in the case of HSAM, in DTFs. The DBD is 
loaded into storage by the DL/I application control blocks creation and 
maintenance utility, which builds the DMB from the DBD created by DBDGEN. 
The DMB is then cataloged and link edited into a core image library. The DMB is 
moved to its execution-time location in the DMB pool by the application control 
blocks load and relocate routine (DLZDBLMO). 

The DMB consists of the following sections: 

• A prefix section containing primarily offsets to subsections of the DMB 

• An ACB extension. For an HISAM organizaton, there is a pair of ACB 
extensions for each data base; a KSDS ACB and an ESDS ACB. If the data 
base contains only root segments (SHIS AM), only the KSDS ACB extension is 
created. The ACBs are generated only when the blocks are loaded for 
execution by the DLZDBLMO routine from the information in the ACB 
extensions. 



A DTF extension if SHSAM or HSAM for input and output file 

A direct algorithm communication table if HDAM 

A compression section for each compressable segment 

An index maintenance parameter section for each secondary exit routine 

A physical segment description block 

A secondary list to describe indexed fields or logical relationships. 

Field description blocks describing each field in each segment 

A tape or DASD I/O module if SHSAM or HSAM. This module is included 
by the ACB utility. 



The general structure of the DMB is shown in Figure 5-4 on page 5-9. 
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Each DMB section is shown as a separate data 
area in Section 5 of this PLM, For the data 
area layout, see: 



C 



DMB PREFIX 


DSECT Name: 


DMB 


ACB EXTENSION 


DSECT Name: 


DMBACBXT 


DTF EXTENSION 


DSECT Name: 


DMBDTFXT 


DIRECT ALGORITHM COMMUNICATION TABLE 
DSECT Name: DMBDACS 


COMPRESSION SECTION 

DSECT Name: 


DMBCPAC 


INDEX MAINTENANCE PARAMETERS 

DSECT Name: DMBXMPRM 


PHYSICAL SEGMENT DESCRIPTION BLOCK 

DSECT Name: DMBPSDB 


SECONDARY LIST 


DSECT Name: 


DMBSEC 


FIELD DESCRIPTION BLOCK 

DSECT Name: 


FDB 


Tape or DASD I/O Module 



DMB 



DMB Prefix 



ACBXT - ACB Extension 



DACS 



CPAC 



XMPRM 



PSDB 



SEC 



FDB 



HDAM Randomizing Routine 
Interface Table 



HDAM/HIDAM Variable Length 
Segment Compression/Expansion 
Routine 

HDAM/HIDAM User Secondary 
Index Suppression Routine 
Interface Table 



Physical Segment Description 
Block 



Secondary List 



Field Description Block 



Figure 5-4. General Structure of DMB 



Program Specification Block - PSB 



A PSB must be created for every user program which will run under DL/I control. 
The PSB is created in "skeleton" format (principally PCBs only) by PSBGEN. 
The PSB must be cataloged and link edited into the Core Image Library. The PSB 
is loaded into main storage by the DL/I Application Control Blocks Creation and 
Maintenance Utility program and expanded and completed by this utility. The 
expansion is performed by segment definition in the DBD representing the 
associated data base. The expanded PSB is link edited into the Core Image 
Library. The PSB is moved to its execution-time location in the PSB pool by the 
application control blocks load and relocate routine (DLZDBLMO). In expanded 
final format, the PSB consists of the following parts in the order specified: 



C) 



1. PSB prefix - of which the most important part is the variable-length PSB list: 
the address list of the PCBs in the PSB. A dope vector table follows the PSB 
prefix for PL/I programs. 
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2. A variable number of data base PCBs. For each data base PCB there is a JCB 
(job control block) consisting of the following parts: 

• JCB prefix 

• DSG (data set group) table. This table contains entries describing the data 
bases specifically used for this PCB. There are entries for all logically 
connected data bases, all primary HID AM indexes, and a secondary index 
if used as the processing sequence. 

• Level table. This table provides the current position after the last DL/I 
CALL. 






SDB (segment description block). This block contains an entry for each 
segment to which the user has declared himself sensitive in the PCB. The 
SDB entry describes the sensitive segment. 

Work area for index maintenance, variable-length segment support, or 
miscellaneous function. These are allocated only when required (if any 
user PCB directly or indirectly refers to an index data base). 

PSB work areas; of variable length depending on the requirements of the 
PCBs. 



General Structure 



The general structure of the PSB after it is loaded into storage is shown in 
Figure 5-5 on page 5-11. 
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One Data ' 
Base PCB\ 



v 

Additional I 
Data Base < 
PCBs f 



PSB PREFIX 

DSECT Name: 


PSB 


PCB DOPE VECTOR TABLE 

DSECT Name: 


DPPCB 


DATA BASE PCB 

DSECT Name: 


DBPCB 


JCB PREFIX 

DSECT Name: 


JCB 


DSG TABLE 

DSECT Name: 


DSG 


LEVEL TABLE 

DSECT Name: 


LEV 


SDB 

DSECT Name: 


SDB 


• 

• REPEATED AS SHOWN ABOVE 

• 


INDEX MAINTENANCE WORK AREA 
DSECT Name: 


XWORKARA 


PCB WORK AREA 



Each PSB section is shown as a 
separate data area in Section 5 of 
this PLM. For the data area layout, 
see: 



PSB - PSB Prefix 



DPPCB - PCB Dope 

Vector Table 

Program 
PCB — Communication 
Block 



JCB 



Job \ 

■ Control 
Block 



DSG - 



Data Set 
Group 



LEV 



| Level Table 
Entry 



JCB 

includes 
V DSG, 
/ LEV, 

and 

SDB 



Segment 
SDB — Description 
Block / 



Index Maintenance Work Area 



( 



Figure 5-5. General Structure of PSB. 



DL/I Buffer Pool Control Blocks 



The DL/I buffer pool control blocks provide the control information to manage the 
entire buffer pool for the DL/I task. The buffer pool control blocks are as follows: 

• Buffer Pool Control Block Prefix - This control block contains the statistics 
and other control information for the entire buffer pool. 

• Subpool Information Table - This control block contains information for a 
specific subpool, including the size of the buffers in the subpool. There is one 
subpool information table for each subpool allocated. 

• DMB Subpool Directory - This control block contains a one-byte subpool 
number relative to zero for each HDAM or HID AM data base allocated. The 
DMB sequence number is used as an offset into the DMB directory and allows 
a DMB to be identified with a specific subpool. 
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• Buffer Prefix Control Block - This control block contains key information 
about the contents of a specific buffer in a subpool. There is one buffer prefix 
control block for each buffer. Each subpool contains 2-32 buffers. 



The general structure of the DL/I buffer pool control blocks is shown in 
Figure 5-6. 

Each buffer pool control block is shown as a 

separate data area in Section 5 of this PLM. 
For the data area layout, see: 






BUFFER POOL CONTROL BLOCK PREFIX 
DSECTName: BFPL 



SUBPOOL INFORMATION TABLE 

DSECT Name: SUBINFTA 






DMB SUBPOOL DIRECTORY 






BUFFER PREFIX 



DSECTName: BFFRDS 






I/O BUFFERS 



(2-32 per subpool) 



BFPL - Buffer Pool Control Block Prefix 



SBIF - Subpool Information Table 



BFFR - Buffer Prefix 






Figure 5-6. General Structure of DL/I Buffer Pool Control Blocks 
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ACBXT - ACB Extension 

DSECTName: DMBACBXT 

The ACB extension is described as part of the general structure and description of the data management block 
(DMB), which is part of the DLZIDLI macro. The information in ACBXT is repeated for each data set in the DMB. 
The ACB extension is immediately behind the DMB Prefix. For HISAM data bases, there is a second ACB 
extension immediately behind the first. 



( 



( 



t 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





DMBACBXT 







(0) 


4 


DMBACBST 







(0) 


4 


DMBACBAD 




4 


(4) 


2 


DMBCINV 




6 


(6) 


1 


DMBACBDL 




7 


(7) 


1 


DMBACBAP 




8 


(8) 


2 


DMBACBMX 




10 


(A) 


2 


DMBACBMN 




12 


(C) 


4 


DMBECB 




16 


(10) 


4 


DMBHIBLK 




20 


(14) 


4 


DMBRBASN 





o 



24 


(18) 


4 


DMBRLBLK 


28 


(1C) 


2 


DMBCICYL 


30 


(IE) 


1 


DMBCITRK 


31 


(1F) 


1 


DMBKEYLE 


32 


(20) 


2 


DMBRKP 


34 


(22) 


1 


DMBOFLGS 
DMBIGNOR 



1 . 



Description 



Start of ACB extension 

Address of corresponding 
ACB 

Control interval size 

Delta cylinders to scan 

Number of root anchor 
points per control interval 
(HDAM) 

Length of the largest 
segment in data set 

Length of the smallest 
segment in data set 

ACB/ECB for buffer handler 

Highest possible RBN (CI) 

RBA of last logical record 
assigned (HISAM) or 
relative block number of 
last control interval 
assigned (HD) . During batch 
initialization the 
high-order byte is the 
buffer size (control 
interval size/512) indicator 

Relative block number of 
last control interval 
written (HD) 

Number of control interval 
per cylinder 

Number of control interval 
per track 

Key length of KSDS 

Relative key position 

Open flags 

"X^O"' IGN specified for 
workfile on load 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



35 (23) 



36 (24) 



DMBNUSE . . 1 . 

DMBOPEN ... 1 

DMBPUTKY 

DMBUNLD 

DMBVSFLG 

DMBCISPL 1... 



DMBPSEQ 



DMBHIRBA 



40 


(28) 


2 


DMBVSBFR 


42 


(2A) 


2 


DMBLRECL 


44 


(2C) 


2 


DMBBFACT 


46 


(2E) 


1 


DMBINDO 
DMBWCHK 
DMBKEY 



47 


(2F) 


1 




48 


(30) 


4 


DMBSPLCT 


52 


(34) 


4 


DMBACBRP 


56 


(38) 


2 


DMBACBLC 


58 


(3A) 


2 


DMBFRSPC 


59 


(3B) 




DMBFRSP1 


60 


(3C) 


8 


DMBACBNM 



.1 



. 1 . 



1 



DMBBESDS . 1 . . 
DMBFBA . . 1 . 
DMBINIT ... 1 



Description 

"X'20"' ACB does not have 
resolved secondary index 
entries; workfile must be 
used 

"X'lO"' The corresponding 
ACB is open 

"X'OS"' Simulate not load 
mode to VSAM 

"X'04 1 " Unload issued for 
this DMB 

Flags 

"X ' 80 ' " CONTROL INTERVAL 
split occurred 

"X 1 10' " SEQUENTIAL 
processing possible for 
this KSDS 

Highest RBA in present 
range of extents (HIDAM 
ESDS only) 

Number of buffers to be 
used 

Logical record length 

Blocking factor 

Permanent indicators 

"X'08 f " Write check option 

"X'80 1 " Data set contains 
keys (HISAM/SHISAM) 

"X^O"' Blocked ESDS 

"X^O"' FBA device 

"X'lO 1 " Space management 
has been entered for this 
DMB 

Reserved 

Control interval split 
count 

Address of this ACB's RPL 

Log count (HISAM ONLY) 

Distributed free space 
parameter 

"*-1" SECOND FREE SPACE 
parameter 

Data set name as in ACB 
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Offsets 




Field/Flag 


(Dec) (Hex) 


Length 


Name 

DMBACLNO 


68 (44) 


4 


DMBACBEX 


72 (48) 


2 


DMBFBASN 


74 (4A) 


2 


DMBEXQUE 



(Bit) Description 

"*-4-DMBACBST" Length OF 
version 1.0 ACB extension 

Address of the exit list 
for this ACB 

FBA scan value 

Queue header for tasks 
that are extending the 
data base 



76 



80 



(4C) 



(50) 



DMBVSEOF 



DMBACBND 
DMBACBLN 



Relative block number of 
where software end-of-file 
will be when all control 
intervals on the write 
chain have been written 

END OF ACB EXTENSION 

"DMBACBND-DMBACBST" Length 
of ACB extension 



( 



C 



LABEL EQUATES 

DMBDCBDL 

DMBDCBAP 

DMBDCBMX 

DMBDCBMN 

DMBDCBLN 

DCBHIBLK 

DCBRBASN 

DCBRLBLK 

DCBKEYLE 

DCBLRECL 

DCBBFACT 

DCBRKP 

DCBINDO 

DCBKEY 

ACBHIBLK 

ACBRBASN 

ACBRLBLK 

ACBKEYLE 

ACBLRECL 

ACBBFACT 

ACBINDO 

HSAM DTF EXTENSION 

(0) DMBDTFXT 

(0) 4 DMBDTFIN 

4 (4) 4 DMBDTFOT 



"DMBACBDL" 

"DMBACBAP" 

"DMBACBMX" 

"DMBACBMN" 

"DMBACBND-DMBACBST" 

"DMBHIBLK" 

"DMBRBASN" 

"DMBRLBLK" 

"DMBKEYLE" 

"DMBLRECL" 

"DMBBFACT" 

"DMBRKP" 

"DMBIND0" 
m x , 80 ,m 

"DMBHIBLK" 
"DMBRBASN" 
"DMBRLBLK" 
"DMBKEYLE" 
"DMBLRECL" 
"DMBBFACT" 
"DMBIND0" 



Address of HSAM input DTF 
Address of HSAM output DTF 
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Cross Reference 





Hex 


Hex 




Hex 


Hex 


Name 


Offset 


Value 


Name 


Offset 


Value 


ACBBFACT 


50 


2C 


DMBHIBLK 


10 




ACBHIBLK 


50 


10 


DMBHIRBA 


24 




ACBINDO 


50 


2E 


DMBIGNOR 


22 


40 


ACBKEYLE 


50 


1F 


DMBIND0 


2E 




ACBLRECL 


50 


2A 


DMBINIT 


2E 


10 


ACBRBASN 


50 


14 


DMBKEY 


2E 


80 


ACBRLBLK 


50 


18 


DMBKEYLE 


1F 




DCBBFACT 


50 


2C 


DMBLRECL 


2A 




DCBHIBLK 


50 


10 


DMBNUSE 


22 


20 


DCBINDO 


50 


2E 


DMBOFLGS 


22 




DCBKEY 


50 


80 


DMBOPEN 


22 


10 


DCBKEYLE 


50 


1F 


DMBPSEQ 


23 


10 


DCBLRECL 


50 


2A 


DMBPUTKY 


22 


08 


DCBRBASN 


50 


14 


DMBRBASN 


14 




DCBRKP 


50 


20 


DMBRKP 


20 




DCBRLBLK 


50 


18 


DMBRLBLK 


18 




DMBACBAD 







DMBSPLCT 


30 




DMBACBAP 


7 




DMBUNLD 


22 


04 


DMBAGBDL 


6 




DMBVSBFR 


28 




DMBACBEX 


44 




DMBVSEOF 


4C 




DMBACBLC 


38 




DMBVSFLG 


23 




DMBACBLN 


50 


50 


DMBWCHK 


2E 


08 


DMBACBMN 


A 










DMBACBMX 


8 










DMBACBND 


50 










DMBACBNM 


3C 










DMBACBRP 


34 










DMBACBST 













DMBACBXT 













DMBACLNO 


40 


40 








DMBBESDS 


2E 


40 








DMBBFACT 


2C 










DMBCICYL 


1C 










DMBCINV 


4 










DMBCISPL 


23 


80 








DMBCITRK 


1E 










DMBDCBAP 


50 


07 








DMBDCBDL 


50 


06 








DMBDCBLN 


50 


50 








DMBDCBMN 


50 


0A 








DMBDCBMX 


50 


08 








DMBDTFIN 













DMBDTFOT 


4 










DMBDTFXT 













DMBECB 


C 










DMBEXQUE 


4A 










DMBFBA 


2E 


20 








DMBFBASN 


48 










DMBFRSPC 


3A 










DMBFRSP1 


3A 


3B 















v,. 



c 
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ACT - Partial Reorganization Action Table 
DSECT Name: DLZPRACT 



( 



C 



This DSECT describes one action to be taken by either RELOAD or SCAN. It also defines the action to be taken 
by UPDATE when the record created by RELOAD or SCAN is read back. It is built by the action table builder and 
is used by RELOAD, SCAN, and UPDATE phases in step 2. Its address is held in the common area field 
(COMAACT). 



(Bit) Description 



Action record type 

Action row number 

Reserved 

Optional action identifier 

"X f 80 IM Option with two 
ACT entries 

Destination indicator flags 

"X'SO 1 " Record goes to 
sort 1 

"X^O"' Record goes to 
sort 2 

"X'20 1 " Record goes to 
sort 3 

"X'lO'" Record goes to 
sort 4 

DS of moved segment for 
sort 1 

Offset in SGT from which 
this is chained 

Offset in SGT for segment to 
be updated 

Offset in SGT for Z segment 
in physical pair 

Offset in prefix of pointer 
to be extracted 

Offset in prefix of pointer 
to be updated 

Offset in prefix of chain 
head pointer 

Offset in prefix of next 
in chain pointer 

Offset to be tested for 
zero or non-zero 



Off! 

(Dec) 


sets 
(Hex) 


Length 


Field/Flag 
Name 





(0) 





ACT 





(0) 


4 


ACTSTART 





(0) 


1 


ACTCRTYP 


1 


(1) 


1 


ACTCROW 


2 


(2) 


1 




3 


(3) 


1 


ACTGOPTN 
ACTQOPT2 


4 


(4) 


1 


ACTGDEST 
ACTQSRT1 

ACTQSRT2 

ACTQSRT3 

ACTQSRT4 



10 



12 



14 



16 



18 



20 



(5) 


1 


ACTCSDS 


(6) 


2 


ACTOSGT 


(8) 


2 


ACTOSUPD 


(A) 


2 


ACTOSZID 


(C) 


2 


ACTOPRMV 


(E) 


2 


ACTOPUPD 


(10) 


2 


ACTOCHED 


(12) 


2 


ACTOCNXT 


(14) 


2 


ACTOTEST 
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Offsets 
(Dec) (Hex) Length 

22 (16) 2 



24 



(18) 



Field/Flag Flag Code 
Name (Bit) 

ACTOANXT 



(2) 



Description 

Offset in ACT of next 
action 

Reserved 

action table entry 






Cross Reference 








Hex 


Hex 


Name Off 


"set 


Value 


ACT 







ACTCROW 


1 




ACTCRTYP 







ACTCSDS 


5 




ACTGDEST 


4 




ACTGOPTN 


3 




ACTLLEN 


18 


20 


ACTOANXT 


16 




ACTOCHED 


10 




ACTOCNXT 


12 




ACTOPRMV 


C 




ACTOPUPD 


E 




ACTOSGT 


6 




ACTOSUPD 


8 




ACTOSZID 


A 




ACTOTEST 


14 




ACTQOPT2 


3 


80 


ACTQSRT1 


4 


80 


ACTQSRT2 


4 


40 


ACTQSRT3 


4 


20 


ACTQSRT4 


4 


10 


ACTSTART 








\.,y 



\* aa j 



V 
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ARGO - HLPI ARGO Parameters 

DSECT Name: DLZARGO 

This DSECT describes the fields contained in the DL/I HLPI ARGO Interface Parameter list. 



ARGO 

Offsets 
(Dec) (Hex) Length 






1 



(0) 
(0) 
(0) 
(D 



c 



2 (2) 1 

3 (3) 1 

4 (4) 1 

5 (5) 1 

6 (6) 1 

7 (7) 1 

8 (8) 8 
16 (10) 8 
24 (18) 1 



Field/Flag Flag Code 
Name (Bit) 



DLZARGO 

ARGO 

ARGOFNID 

ARGOFNCD 

INITCALL 

SCHDCALL 

TERMCALL 

CHKPCALL 

GUCALL 

GNCALL 

GNPCALL 

ISRTCALL 
REPLCALL 
DLETCALL 
LOADCALL 
ARG0FLG1 
ARG0FLG2 
ARG0FLG3 
APPLPLI 1 

ARGOMODI 

ARGORELN 

ARGOTOTN 

ARGORMGR 
ARGOSTMT 
ARGOOPTS 
USINGPCB .1 



Description 



ARGO ID x'00 1 


Function code 


M X , 02" 


Initialize call 


m x , 04 ,, 


Schedule call 


"x'oe" 


Termination call 


"x'os" 


Checkpoint call 


"X'OA" 


Get unique call 


"X'OC" 


Get next call 


"X'10 M 


Get next in parent 


call 




„ x , 12 ,, 


Insert call 


"X'14" 


Replace call 


H X , 16 ,, 


Delete call 


u x , 18 ,, 


Load call 



Argument Flag 1 

Argument Flag 2 

Argument Flag 3 

"X , 02 ,n Application 
program is PL/I 

Index for start of symbol 
HLPIQS in DLZHLPIL DSECT 

Relative number of this 
call 

Total number of calls in 
this statement 

Resource manager's ID 

Statement identifier 

Statement level options 

"X^O"' Using PCB 
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Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 




Description 


25 (19) 


1 


ARGOCCOD 




Command 


codes 






CCFIRST 


1 


„ x , 80 ,„ 


First 






CCLAST 


.1 


»X'40 f " 


Last 






CCLOCKED 


. .1 


m x , 20 ,„ 


Locked 






CCINFROM 


. . .1 


n x , 10 ,„ 
(Insert 


Into (Get) or from 
, Load, Replace) 


26 (1A) 


1 


ARG0OPT1 




Call options 






ARGOKFBA 


1 . 


„ x , 02 ." 
specif i< 


Key feedback 
-d 






ARGOKFBL 


1 


"X'OI'" Feedback length 
specified 


27 (1B) 


1 


ARGOSOPT 




Segment 


options 






OPTSEGL 


1 


„ x , 80 , „ 


Seglength present 






OPTWHERE 


.1 


„ X , 40 ,M 


Where 











„ x , 2 o«» 

only) 


Boolean where (IMS 






OPTFLDL 


. . .1 


"X'lO"' 


Field length prese 






OPTVAR 


1 . . . 


m x , 08 ,„ 


Variable 






OPTSEGM 


1 . . 


n x , 04 ,„ 
present 


Segment name 






OPTOFF 


1 . 


n x , 02 ,„ 


Offset specified 









28 



(1C) 



Reserved 
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Zross Reference 








Hex 


Hex 


Name Off 


"set 


Value 


APPLPLI 


4 


02 


ARGO 







ARGOCCOD 


19 




ARG0FLG1 


2 




ARG0FLG2 


3 




ARG0FLG3 


4 




ARGOFNCD 


1 




ARGOFNID 







ARGOKFBA 


1A 


02 


ARGOKFBL 


1A 


01 


ARGOMODI 


5 




ARGOOPTS 


18 




ARG0OPT1 


1A 




ARGORELN 


6 




ARGORMGR 


8 




ARGOSOPT 


1B 




ARGOSTMT 


10 




ARGOTOTN 


7 




CCFIRST 


19 


80 


CCINFROM 


19 


10 


CCLAST 


19 


40 


CCLOCKED 


19 


20 


CHKPCALL 




08 


DLETCALL 




16 


DLZARGO 







GNCALL 




OC 


GNPCALL 




10 


GUCALL 




OA 


INITCALL 




02 


ISRTCALL 




12 


LOADCALL 




18 


OPTFLDL 


1B 


10 


OPTOFF 


1B 


02 


OPTSEGL 


1B 


80 


OPTSEGM 


1B 


04 


OPTVAR 


1B 


08 


OPTWHERE 


1B 


40 


REPLCALL 


1 


14 


SCHDCALL 


1 


04 


TERMCALL 


1 


06 


USINGPCB 


18 


40 
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BFFR - Buffer Prefix 

DSECT Name: DLZBFFR 

The buffer prefix is described as part of the general structure and description of the DL/I buffer pool control blocks. 
There is one buffer prefix for each buffer allocated. 






Offsets 



(Dec) 


(Hex) 


Length 


Name 





CO) 





BFFRDS 





(0) 


7 


BFFRCIID 





(0) 


4 


BFFRCIRB 


4 


(4) 


2 


BFFRDMB 


6 


(6) 


1 


BFFRDCB 


7 


(7) 


1 


BFFRSW 
BFFRWCH 

BFFRWRT 

BFFRREAD 

BFFRMT 

BFFRPRED 

BFFRWERR 

BFFREXNQ 

BFFRPNNQ 



Field/Flag Flag Code 
(Bit) 



8 


(8) 


2 


BFFRPST 


8 


(8) 


1 


BFFRPSTF 


9 


(9) 


1 


BFFRPSTL 


10 


(A) 


2 


BFFRLOCU 


12 


(C) 


1 


BFFRUSCT 


12 


(C) 


4 


BFFRADDR 


16 


(10) 


2 


BFFRUSID 


18 


(12) 


1 


BFFRWCFW 


19 


(13) 


1 


BFFRWCBW 



Description 



Control interval 
Identifier 

Control interval RBN 

DMB number 

ACB number 

Flags 

"X'SO'" Buffer on write 
chain 

"X^O"' Buffer being 
written 

"X^O 1 " Buffer being read 

"X* 10' " Buffer empty 

"X'OS"* Buffer waiting for 
predecessor being written 

,, X , 04 ,M Buffer has 
permanent write error 

,, X'02 I " Existing control 
interval ID enqueued 

"X'OI'" Pending control 
interval ID enqueued 

PST prefix numbers for 
enqueue/dequeue 

PST prefix number of the 
controlling task 

PST prefix number of the 
task being last in the 
chain of waiting tasks 

Log count 

Use count 

Address of the buffer 

ID of the users who 
altered this buffer 

Next lower buffer on the 
write chain 

Next higher buffer on the write chain 



/f 
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C 



( 



Off 
(Dec) 


sets 
(Hex) 


Length 


Field/Flag 
Name 


Flag 
(B: 


Code 

Lt) 


Description 


20 


(14) 


7 


BFFRNCID 






New control interval 
identifier 


20 


(14) 


4 


BFFRNCII 






New control interval 


24 


(18) 


2 


BFFRNDMB 






New DMB number 


26 


(1A) 


1 


BFFRNACB 






New ACB number 


27 


(1B) 


1 


BFFRSW1 






Flags 








BFFRNORU 


1 . . . 




"X'80 1 " Buffer is no 



28 (1C) 



28 (1C) 



29 (1D) 



30 (1E) 



BFFRLOCK 

BFFRREL 
BFFRLAST 

BFFRNPST 

BFFRNPSF 

BFFRNPSL 

BFFRHOLE 
BFFRLEN 



. 1 , 



. .1 



reusable 

"X^O"' Buffer locked by 
logger 

"X'OS"' Buffer is released 

"X f 01 IM Last buffer prefix 
for this subpool 

PST prefix numbers for 
ENQ/DEQ 

PST prefix number of task 
which enqueued on new 
control interval ID and 
is first in the chain 

PST prefix number of task 
which enqueued on new 
control interval ID and 
is last in chain 

Length of largest space 
available in the buffer 
buffer prefix 

Length of buffer prefix 



^flF*% % 
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Cross Reference 





Hex 


Hex 


Name 


Offset 


Value 


BFFRADDR 


C 




BFFRCIID 







BFFRCIRB 







BFFRDCB 


6 




BFFRDMB 


4 




BFFRDS 







BFFREXNQ 


7 


02 


BFFRHOLE 


1E 




BFFRLAST 


1B 


01 


BFFRLEN 


20 


20 


BFFRLOCK 


1B 


40 


BFFRLOCU 


A 




BFFRMT 


7 


10 


BFFRNACB 


1A 




BFFRNCID 


14 




BFFRNCII 


14 




BFFRNDMB 


18 




BFFRNORU 


1B 


80 


BFFRNPSF 


1C 


\ 


BFFRNPSL 


1D 




BFFRNPST 


1C 




BFFRPNNQ 


7 


01 


BFFRPRED 


7 


08 


BFFRPST 


8 




BFFRPSTF 


8 




BFFRPSTL 


9 




BFFRREAD 


7 


20 


BFFRREL 


1B 


08 


BFFRSW 


7 




BFFRSW1 


1B 




BFFRUSCT 


C 




BFFRUSID 


10 




BFFRWCBW 


13 




BFFRWCFW 


12 




BFFRWCH 


7 


80 


BFFRWERR 


7 


04 


BFFRWRT 


7 


40 






4 \ 



w 
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BFPL - Buffer Pool Control Block Prefix 

DSECT Name: DLZBFPL 

The BFPL is described as part of the general structure and description of DL/I buffer pool control blocks. There is 
one buffer pool control block prefix that contains information for the entire buffer pool. 



Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



( 



C 



(0) 
(0) 4 
(0) 4 



48 



(30) 



BFPL 
BFPLID 



4 


(4) 


4 


(3) 


16 


(10) 


4 


BFPLRQCT 


20 


(14) 


4 


BFPLINPL 


24 


(18) 


4 


BFPLRDCT 


28 


(1C) 


4 


BFPLALTR 


32 


(20) 


4 


BFPLOSWT 


36 


(24) 


4 


BFPLBKWT 


40 


(28) 


4 


BFPLNWBK 


44 


(2C) 


4 


BFPLCHWT 



BFPLCHBK 



52 


(34) 


4 


BFPLISTL 


56 


(38) 


4 


BFPLIGET 


60 


(3C) 


1 


BFPLWERR 


61 


(3D) 


1 


BFPLWERT 


62 


(3E) 


1 




63 


(3F) 


1 




64 


(40) 


4 


BFPLNQW1 



BFPLEXCI 



Description 



Buffer pool control block 
ID (BFPL) 

Reserved 

Number of requests 
received by the buffer 
handler 

Number of requests 
Satisfied from buffer pool 

Number of read requests 
Issued 

Number of buffer alter 
requests received 

Number of writes issued 

Number of blocks written 

Number of new blocks 
created in pool 

Number of chained writes 
issued 

Number of blocks written 
on write chain 

Number of retrieves by key calls 

Number of GN calls 
received 

Number of permanent write 

Largest number of write 
error buffers ever in pool 

Reserved for future use 

Reserved for future use 

Enqueue/Dequeue workarea 
1 . Byte indicates the 
following: 

11 X ' ' " Enqueue/dequeue 
existing control interval code 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



BFPLPECI 



Description 

M X ' 04 ' " Enqueue/dequeue 
pending control interval 
code 






BFPLSUPO .... 1. 



BFPLCIXT 



11 



"X ' 08 '" Enqueue/dequeue 
subpool code 

"X ' 0C '" Enqueue/dequeue 
on control interval 
extension queue bytes 1-3 
contains a pointer to the 
PST prefix numbers of first 
and last task waiting for 
the resource 



68 (44) 


4 


(15) 


128 (80) 


4 


BFPLPRAD 


132 (84) 


4 


BFPLSUBD 


136 (88) 


4 


BFPLSUIN 
BFPLLEN 


Cross Reference 








Hex 


Hex 


Name Off 


r set 


Value 


BFPL 







BFPLALTR 


1C 




BFPLBKWT 


24 




BFPLCHBK 


30 




BFPLCHWT 


2C 




BFPLCIXT 


40 


OC 


BFPLEXCI 


40 


00 


BFPLID 







BFPLIGET 


38 




BFPLINPL 


14 




BFPLISTL 


34 




BFPLLEN 


88 


88 


BFPLNQW1 


40 




BFPLNWBK 


28 




BFPLOSWT 


20 




BFPLPECI 


40 


04 


BFPLPRAD 


80 




BFPLRDCT 


18 




BFPLRQCT 


10 




BFPLSUBD 


84 




BFPLSUIN 


88 




BFPLSUPO 


40 


08 


BFPLWERR 


3C 




BFPLWERT 


3D 





Reserved for future use 

Beginning address of the 
buffer prefix area 

Beginning address of the 
DMB-subpool-directory 

Beginning of the subpool 
information table entries 

M *-BFPL" length of the 
buffer pool control block 
prefix 



4 % 



V^ 



C 
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( 



( 



( 



C 



COM - Common Area 

DSECT Name: DLZPRCOM 

This CSECT/DSECT describes the common area used by partial reorganization. The common area is assembled as 
a CSECT in the Parti and Part2 control modules. In all other modules it is used as a DSECT. The common area is 
made up of the following sections: 

1 . General address section 

2. Switch and data section 

3. DL/I address section 

4. File section 

5. Checkpoint section 



Offsets 

(Dec) (Hex) Length 

(0) 

(0) 4 

(0) 12 



Field/Flag Flag Code 
Name (Bit) 



COMAREA 

COMSTART 

COMCID 

GENERAL ADDRESS SECTION 



12 


(C) 


4 


COMFCOML 


16 


(10) 


4 


COMACOM 


20 


(14) 


4 


COMAS IOA 


24 


(18) 


4 


COMAERRS 


28 


(1C) 


4 


COMAFILE 


32 


(20) 


4 


COMADLII 


36 


(24) 


4 


COMACHKP 


40 


(28) 


4 


COMASTWR 


44 


(2C) 


4 


COMADBD 


48 


(30) 


4 


COMFDBTL 


52 


(34) 


4 


COMADBT 


56 


(38) 


4 


COMFDBTM 


60 


(3C) 


4 


COMFSGTL 


64 


(40) 


4 


COMASGT 


68 


(44) 


4 


COMFSGTM 


72 


(48) 


4 


COMFACTL 


76 


(4C) 


4 


COMAACT 


80 


(50) 


4 


COMFACTM 



Description 



Identifier 

Length of common 

Address of common 

Address of an I/O area for 
GU, GN calls 

Entry point of error 
message writer 

Entry point of file 
manager 

Entry point of DL/I 
interface module 

Entry point of checkpoint 
processor 

Entry point of statistics 
writer 

Address of data base block 

Length of data base table (DBT) 

Address of DBT 

Maximum size of DBT 

Length of segment table 

Address of SGT 

Maximum size of SGT 

Length of action table (ACT) 

Address of ACT 

Maximum size of ACT 
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Offsets 
(Dec), (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 


84 


(54) 


4 


COMARGT 




88 


(58) 


2 


CQMLRGT 




90 


(5A) 


2 


COMHLDBT 




92 


(5C) 


2 


COMHNDBT 




94 


(5E) 


2 


COMHLSGT 




96 


(60) 


2 


COMHNSGT 




98 


(62) 


2 


COMHMXPR 




100 


(64) 


2 


COMHNSGX 




102 


(66) 


2 


COMHLACT 




104 


(68) 


2 


COMHNACT 




106 


(6A) 


2 


COMHLRGT 




108 


(6C) 


2 


COMHNRGT 




110 


(6E) 


2 


COMHMXSG 




112 


(70) 


2 


COMHKYLN 





SWITCH AND DATA SECTION 

114 (72) 2 COMXBR14 
116 (74) 4 COMFRETC 



120 


(78) 


8 


COMCPSBN 




128 


(80) 


1 


COMCIREQ 

COMQGPRE 

COMQIPRE 

COMQBKLC 
COMQBYLC 
COMQBYAL 

COMQGRBA 

COMQFREE 

COMQRKEY 


1 . 

1 . 

11 

11 

1 . . 



Description 

Address of RGT 

Length of range table 
(RGT) 

Length of a DBT entry 

Number of DBT entries 

Length of a SGT entry 

Number of SGT entries 

Length of longest prefix 
in data base number 1 

Number of SGX entries 

Length of an ACT entry 

Number of ACT entries 

Length of an RGT entry 

Number of RGT entries 

Length of data part of 
longest segment 

Length of current HIDAM 
key 



A BR 14 instruction 

Level of most severe error 
to date 

Name to be given to 
generated PSB 

Dl/I common services 
request code 

"X'OI"' Get prefix address 
of last segment retrieved 

,, X I 02 ,U Get prefix address 
of last segment inserted 

,, X , 03 ,n Locate block 

"X I 04 I " Byte locate 

"X'OS"' Locate byte for 
updating 

"X'Oe"' Get RBA of last 
seg retrieved/inserted 

,i x t 07 ».. Free space 
occupied by a segment 

"X'OS'" Find key of HDAM 
root at block N 






4' N 

\_y 



V-. 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



COMQLOLD 1 . 

COMQLNEW 

COMQBMON .... 1 . 

COMQBMOF 11 

COMQBFAL 11 

COMQULHB 11 

COMQXRMA 11 

COMQINT2 

COMQINTU 

COMQRSTU 
COMQINTR 

COMQRSTR 
COMQCRAP 

COMQGNDX 

COMGOUT 

COMQSALL 1 

COMQSUMM .1 

COMQSNON . .1 . 

COMQNPSB 1 

COMGUCTL 

COMQDUNQ 1 

COMQSPUS .1 

COMQSPOF . . 1 



Description 



129 (81) 1 



130 (82) 






COMQNDBR 



.1 



"X'OQ"' Log data before 
change 

"X'OA 1 " Log data after 
change 

"X'OB 1 " Turn bit maps on 

"X'OC" Turn bit maps off 

"X'OD"' Mark buffer 
altered 

"X'OE"' Set LO and HI 
block 

"X'OF 111 Swap randomizer 
entry points 

"X'lO"' Initialize for 
Part 2 

"X'11 '" Initialize for 
UNLOAD 

,, X , 12 ,M Reset after UNLOAD 

"X'lS 1 " Initialize for 
RELOAD 

"X f 14 IM Reset after RELOAD 

"X'lS 1 " Clear HDAM root 
anchor point 

"X'TG 1 " Retrieve an index 
record 

Output control switches 

"X'SO"' Full statistics 
required 

"X'AO"' Summary of 
statistics required 

"X^O 1 " No statistics to 
be produced 

"X'01 f " No PSB to be 
generated 

Update process control 
switches 

"X^O 1 " Q record update is 
complete 

"X^O"' Spill is in use 

"X^O"' Spill overflow has 
unprocessed records 

"X'lO 1 " No database record 
in HDAM range 
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Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 


131 


(83) 


1 


COMGPART 
COMQSTP1 

COMQSTP2 

COMQRIP 


1 

.1 . . .... 

1 . 


132 


(84) 


4 


COMCSTEC 




136 


(88) 


9 


COMCSSIZ 




145 


(91) 


9 


COMCSMSG 




154 


(9A) 


4 


COMCSDIA 




158 


(9E) 


3 


COMAMSGN 




164 


(A4) 


4 


COMAVTXT 




168 


(A8) 


4 


COMFWRK1 




172 


(AC) 


4 


COMFWRK2 




176 


(BO) 


4 


COMFWRK3 




180 


(B4) 


4 


COMFWRK4 





Description 

Part in progress indicator 

"X^O 1 " Part 1 is in 
progress 

"X^O 1 " Part 2 is in 
progress 

"X'C^ 1 " Restart in 
progress 

Sort technique to be used 

Main storage to be used by 
sort 

Sort output message level 

Sort diagnostic option 

Error message number to be 
printed 

Address of variable text 
for message 

First work word 

Second work word 

Third work word 

Fourth work word 



4" 



,4" 



C 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



DLI ADDRESS SECTION 

184 (B8) 4 COMASCD 



( 



188 (BC) 4 

192 (CO) 4 

196 (C4) 4 

200 (C8) 4 

204 (CC) 4 

208 (DO) 4 

212 (D4) 4 

216 (D8) 4 

220 (DC) 4 

224 (E0) 4 

228 (E4) 4 



COMAPST 

COMADDIR 

COMALOG 

COMABUFH 

COMASMGR 
COMAPREF 

COMRLSEG 

COMRLOPT 

COMRHIPT 

COMADLI 



Description 



Address of system contents 
directory (SCD) 

Address of partition 
Specification block 

Address of data base 
directory 

Address of data base 
change logger 

Address of buffer handler 
router 

Address of space manager 

Address of prefix of last 
segment retrieved 

RBA of last segment 
retrieved 

Value of root PTB pointer 
at start of range 

Value of root PTF pointer 
at end of range 

Address of ASBTDLI 

Reserved 
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Offsets 
(Dec) (Hex) 


Length 


Field/Flag F! 
Name 


Lag Code 
(Bit) 


i 




Description 


FILE SECTION 














232 


(E8) 


4 


COMSFL01 (9) 




FCB 


for 


PRWRKF1 


268 


(10C) 


4 


COMSFL02(9) 




FCB 


for 


PRWRKF2 


304 


(130) 


4 


COMSFL03(9) 




FCB 


for 


PRWRKF3 


340 


(154) 


4 


COMSFL04(9) 




FCB 


for 


PRWRKF4 


376 


(178) 


4 


COMSFL05(9) 




FCB 


for 


PRWRKF5 


412 


(19C) 


4 


COMSFL06(9) 




FCB 


for 


PRWRKF6 


448 


(1C0) 


4 


COMSFL07(9) 




FCB 


for 


PRWRKF7 


484 


(1E4) 


4 


COMSFL08(9) 




FCB 


for 


PRWRKF8 


520 


(208) 


4 


COMSFL09(9) 




FCB 


for 


PRWRKF9 


556 


(22C) 


4 


COMSFL10(9) 




FCB 


for 


PRWRKFA 


592 


(250) 


4 


COMSFL1 1 (9) 




FCB 


for 


SYSPRINT 


628 


(274) 


4 


C0MSFL12(9) 




FCB 


for 


SYSPUNCH 


664 


(298) 


4 


C0MSFL13(9) 




FCB 


for 


SYSIN 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 

CHECKPOINT SECTION 



Description 



Contains switches and data to be checkpointed and recovered 
during restart. Also includes the parameter list of user areas 
to be checkpointed for DL/I. 



700 


(2BC) 


4 


COMFCKID 




704 


(2C0) 


1 


COMCPROC 

COMQPHUR 

COMQPHSC 

COMQPHSO 

COMQPHUD 


. . .1 

. .1 . 
. .11 
.1 . . 


705 


(2C1) 


1 


COMGPHAS 
COMQSCAN 1 . . . 
COMQSRT1 .1.. 
COMQSRT2 . . 1 . 
COMQSRT3 ... 1 

COMQSRT4 

COMQUPDT 

COMQOPTN 

COMQUPIX 


.1 . . 
. .1. 

. . .1 


706 


(2C2) 


2 


COMOCRGT 




708 


(2C4) 


2 


COMODBSN 




710 


(2C6) 


1 


COMGPHS2 
COMQINBF 1 . . . 


. . . • 


711 


(2C7) 


1 






712 


(2C8) 


4 


(2) 
COMQCKND 





ID of last DL/I checkpoint 
taken 

PART2 phase in process 
indicator 

"X ' 1 ' " UNLOAD/RELOAD in 
progress 

f, X f 02' M SCAN in progress 

"X'03' M SORT in progress 

"X'04 ,M UPDATE in progress 

Phase GO NOGO switches 

"X f 80 fM SCAN required 

"X'40 ,M SORT 1 required 

"X'20 ,u SORT 2 required 

"X'10 1 " SORT 3 required 

"X'08 fM SORT 4 required 

"X'04 1 " UPDATE required 

"X , 02 ,M Option selection 
required 

"X'OI"' Only index update 
required 

RGT offset for range being 
processed 

DBT offset for DB being 
scanned 

Restart flags 

"X'SO"' Record in buffer 
for update 

Reserved 

Reserved 

"*" End of area to be 
checkpointed 



C 



From COMFCKID to here is checkpoint data to be restored by DL/I 
extended restart 

The fields which follow are the list of areas to checkpoint and 
recover. This list is passed to DL/I. 
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720 


(2D0) 


4 


COMAPMCT 


724 


(2D4) 


4 


COMACHXR 


728 


(2D8) 


4 


COMAIPCB 


732 


(2DC) 


4 


COMALMXS 


736 


(2E0) 


4 


COMAIOWK 


740 


(2E4) 


4 


COMAPLST 


744 


(2E8) 


4 


COMFCXPL 


748 


(2EC) 


4 


COMFLCKD 


752 


(2F0) 


4 


COMACHKD 


756 


(2F4) 


4 


COMAGBUF 


760 


(2F8) 


4 


COMFFCBL 


764 


(2FC) 


4 


COMAFL25 


768 


(300) 


4 


COMFPMCT 


772 


(304) 


4 


COMLCXP^ 



772 (304) 4 (3) 

END OF CHECKPOINT RESTART PARM LIST 



D-> Parameter count 

-> EBCDIC function code 
(CHKP or XRST) 

-> I/O PCB 

-> Fullword value of 
COMHMXSG or 2K 

-> 1 2 byte work area 

-> Lengths and addresses to 
be checkpointed 

Length of checkpoint list 

Length of common checkpoint 
data 

-> Checkpoint area origin 

-> Origin of combined GSAM 
I/o areas 

Length of PRWRKF2, 3 ,4, 5 

-> FCBs for PRWRKF2,3,4,5 

Fullword parameter count 

Equate for end of 
parameter list 

Reserved 
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Offsets Field/Flag 

(Dec) (Hex) Length Name 

DATA SET GROUP TABLE 

784 (310) 4 

784 (310) 8 COMCDDNM 



Flag Code 
(Bit) 



Description 



792 (318) 



793 (319) 



1 



81 



COMXDGID 
COMLDSGT 

(9) 



874 


(36A) 


2 




876 


(36C) 


16 


COMCTRAC 


892 


(37C) 


4 


(4) 
COMLLEN 


PRINT 


HEADER 


LINE 




908 


(38C) 


121 


COMHEADR 


908 


(38C) 


43 




951 


(3B7) 


36 


COMHEADV 


987 


(3DB) 


23 


COMHEADC 


1010 


(3F2) 


15 


COMHEADD 


1025 


(401) 


4 


COMHEADP 


1029 


(405) 


2 


COMHPAGE 


1031 


(407) 


4 


COMPAGEM 



1 . .1 



DDNAME for a data set 
Group to reorganize 

DL/I data set group ID code 

"♦-COMCDDNM" length of a 
DSG table entry 

Space for 9 more DSG 
entries 

Reserved 

Trace of last 16 requests 
to DL/I services 

Reserved 

"♦-COMSTART" length of 
common 



Page number packed 



Section 5. Data Areas 5-35 



Licensed Material— Property of IBM 



Cross Reference 












Hex Hex 


Hex 


Hex 


Name Offset Value Name 


Offset 


Value COMAACT 


COMABUFH 


C8 


COMFPMCT 


300 




COMACHKD 


2F0 


COMFRETC 


74 




COMACHKP 


24 


COMFSGTL 


3C 




COMACHXR 


2D4 


COMFSGTM 


44 




COMACOM 


10 


COMFWRK1 


A8 




COMADBD 


2C 


COMFWRK2 


AC 




COMADBT 


34 


COMFWRK3 


B0 




COMADDIR 


CO 


COMFWRK4 


B4 




COMADLI 


E0 


COMGOUT 


81 




COMADLII 


20 


COMGPART 


83 




COMAERRS 


18 


COMGPHAS 


2C1 




COMAFILE 


1C 


COMGPHS2 


2C6 




COMAFL25 


2FC 


COMGUCTL 


82 




COMAGBUF 


2F4 


COMHEADC 


3DB 




COMAIOWK 


2E0 


COMHEADD 


3F2 




COMAIPCB 


2D8 


COMHEADP 


401 




COMALMXS 


2DC 


COMHEADR 


38C 




COMALOG 


C4 


COMHEADV 


3B7 




COMAMSGN 


9E 


COMHKYLN 


70 




COMAPLST 


2E4 


COMHLACT 


66 




COMAPMCT 


2D0 


COMHLDBT 


5A 




COMAPREF 


DO 


COMHLRGT 


6A 




COMAPST 


BC 


COMHLSGT 


5E 




COMAREA 





COMHMXPR 


62 




COMARGT 


54 


COMHMXSG 


6E 




COMASCD 


B8 


COMHNACT 


68 




COMASGT 


40 


COMHNDBT 


5C 




COMAS I OA 


14 


COMHNRGT 


6C 




COMASMGR 


CC 


COMHNSGT 


60 




COMASTWR 


28 


COMHNSGX 


64 




COMAVTXT 


A4 


COMHPAGE 


405 




COMCDDNM 


310 


COMLCXPL 


304 




COMCID 





COMLDSGT 


318 


09 


COMCIREQ 


80 


COMLLEN 


37C 


038C 


COMCPROC 


2C0 


COMLRGT 


58 




COMCPSBN 


78 


COMOCRGT 


2C2 




COMCSDIA 


9A 


COMODBSN 


2C4 




COMCSMSG 


91 


COMPAGEM 


407 




COMCSSIZ 


88 


COMQBFAL 


80 


0D 


COMCSTEC 


84 


COMQBKLC 


80 


03 


COMCTRAC 


36C 


COMQBMOF 


80 


0C 


COMFACTL 


48 


COMQBMON 


80 


0B 


COMFACTM 


50 


COMQBYAL 


80 


05 


COMFCKID 


2BC 


COMQBYLC 


80 


04 


COMFCOML 


C 


COMQCKND 


2C8 


02D0 


COMFCXPL 


2E8 


COMQCRAP 


80 


15 


COMFDBTL 


30 


COMQDUNQ 


82 


80 


COMFDBTM 


38 


COMQFREE 


80 


07 


COMFFCBL 


2F8 


COMQGNDX 


80 


16 



4C 



COMFLCKD 



2EC 



,4 \ 



X" 



c 



5-36 DL/I DOS/ VS Logic Manual, Volume 1 



Licensed Material — Property of IBM 



C 



Crass Reference 












Hex 


Hex 




Hex Hex 


Name Offset 


Value 


Name 


Offset Value 


COMQGPRE 


80 


01 


COMSFL12 


274 


COMQGRBA 


80 


06 


COMSFL13 


298 


COMQINBF 


2C6 


80 


COMSTART 





COMQINTR 


80 


13 


COMXBR14 


72 


COMQINTU 


80 


11 


COMXDGID 


318 


COMQINT2 


80 


10 






COMQIPRE 


80 


02 






COMQLNEW 


80 


OA 






COMQLOLD 


80 


09 






COMQNDBR 


82 


10 






COMQNPSB 


81 


01 






COMQOPTN 


2C1 


02 






COMQPHSC 


2C0 


02 






COMQPHSO 


2C0 


03 






COMQPHUD 


2C0 


04 






COMQPHUR 


2C0 


01 






COMQRIP 


83 


02 






COMQRKEY 


80 


08 






COMQRSTR 


80 


14 






COMQRSTU 


80 


12 






COMQSALL 


81 


80 






COMQSCAN 


2C1 


80 






COMQSNON 


81 


20 






COMQSPOF 


82 


20 






COMQSPUS 


82 


40 






COMQSRT1 


2C1 


40 






COMQSRT2 


2C1 


20 






COMQSRT3 


2C1 


10 






COMQSRT4 


2C1 


08 






COMQSTP1 


83 


80 






COMQSTP2 


83 


40 






COMQSUMM 


81 


40 






COMQULHB 


80 


0E 






COMQUPDT 


2C1 


04 






COMQUPIX 


2C1 


01 






COMQXRMA 


80 


OF 






COMRHIPT 


DC 








COMRLOPT 


D8 








COMRLSEG 


D4 








COMSFLO 1 


E8 








COMSFL02 


10C 








COMSFLO 3 


130 








COMSFL04 


154 








COMSFLO 5 


178 








COMSFLO 6 


19C 








COMSFLO 7 


1C0 








COMSFL08 


1E4 








COMSFLO 9 


208 








COMSFL10 


22C 








COMSFL11 


250 









^^\, 
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CPAC - HD AM/HID AM Variable Length Segment Compression/Expansion 

Routine Interface Table 

DSCET Name: DMBCPAC 

This table is described as part of the general structure and description of the data management block (DMB), which 
is part of the DLZIDLI macro. There is one entry for each compressible segment in the DMB. 






Offsets 
(Dec) (Hex) 


Field/Flag 
Length Name 


Flag Code 
(Bit) 


(0) 





DMBCPAC 




(0) 


8 


DMBCPCNM 




8 (8) 


8 


DMBCPCSG 




16 (10) 


4 


DMBCPEP 




20 (14) 


1 


DMBCPFLG 








DMBCPSEQ 


1 . . . 






DMBCPVLR 


1 . . 






DMBCPKEY 


1. 






DMBCPNIT 


1 


21 (15) 


1 


DMBCPSQF 




22 (16) 


2 


DMBCPSQL 




24 (18) 


2 


DMBCPSGL 




26 (1A) 


2 


DMBCPLNG 




28 (1C) 


4 


DMBCPRES 




Cross Reference 








Name Off 


Hex 
set 


Hex 
Value 




DMBCPAC 









DMBCPCNM 









DMBCPCSG 


8 






DMBCPEP 


10 






DMBCPFLG 


14 






DMBCPKEY 


14 


02 




DMBCPLNG 


1A 






DMBCPNIT 


14 


01 




DMBCPRES 


1C 






DMBCPSEQ 
DMBCPSGL 


14 
18 


08 




DMBCPSQF 
DMBCPSQL 
DMBCPVLR 


15 
16 
14 


04 





Description 

Segment name 

Compression routine name 

Entry point of compression routine 

Flag byte 

"X'OS 1 " Segment has 
sequence field defined 

M X f 04 ,,f Segment is 
variable length 

,, X , 02'" Segment has key 
compression option 

"X'OI 1 " Initialization and 
termination processing required 

Length of key field- 1 

Offset to sequence field 

Maximum segment length 

Total length of CSECT 
fixed length, constants 
plus user data 

Reserved for initialization 



,4 "\ 
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DACS - HDAM Randomizing Routine Interface Table 

DSECT Name: DMBDACS 

The HDAM randomizing routine interface table is described as part of the general structure and description of the 
data management block (DMB), which is in the DLZIDLI macro. 



( 



Offsets Field/Flag 

(Dec) (Hex) Length Name 

(0) DMBDACS 

(0) 8 DMBDANME 



Flag Code 
(Bit) 



8 


(8) 


1 


DMBDAKL 


8 


(8) 


4 


DMBDAEP 


12 


(C) 


2 


DMBDASZE 


14 


(E) 


2 


DMBDARAP 


16 


(10) 


4 


DMBDABLK 


20 


(14) 


4 


DMBDABYM 



24 



(18) 



DMBDABYC 



Description 



Name of address conversion 
algorithm load module 

Root key length- 1 

Entry point of conversion 
module 

Size of this DSECT 

Number of root anchor 
pointers per block 

Number of highest block 
in root addressable area 

Maximum number of bytes 
per root before overflow 
outside of root 
addressable area 

Current number of bytes 
consecutively inserted or 
loaded under root 



C 



Crass Reference 










Hex 


Hex 


Name 


Offset 


Value 


DMBDABLK 




10 




DMBDABYC 




18 




DMBDABYM 




14 




DMBDACS 









DMBDAEP 




8 




DMBDAKL 




8 




DMBDANME 









DMBDARAP 




E 




DMBDASZE 




C 
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DBPCB - Program Communication Block 

DSECT Name: DBPCB 

The data management PCB (program communication block) is described as part of the general structure and 
description of the program specification block (PSB). 



4 x 



Offsets 

(Dec) (Hex) Length 

(0) 

(0) 8 

8 (8) 2 



Field/Flag Flag Code 
Name (Bit) 

DBPCB 

DBPCBDBD 

DBPCBLEV 



Description 



DBD name 
Level feedback 



The following fields are used for communication from PSBGEN 
to ACBGEN only. 



8 


(8) 


1 


DBPCBLE1 


9 


(9) 


1 


DBPCBLE2 
DBPCBGO 



32 



32 



34 



36 



(20) 4 

(20) 2 

(22) 2 

(24) 256 



DBPCBAE 



10 


(A) 


2 


DBPCBSTC 


12 


(C) 


4 


DBPCBPRO 


16 


(10) 


4 


DBPCBJCB 
DBPCBTKW 


20 


(14) 


8 


DBPCBSFD 


28 


(1C) 


4 


DBPCBLKY 


28 


(1C) 


4 


DBPCBMKL 
DBPCBMUL 



DBPCBNSS 



DBPCBSSN 



DBPCBSOF 



DBPCBKFD 



Flag byte 

Flag byte 

"X , 02 I " GO or GOP PROCOPT 
for PCB 

"X'OI'" Program isolation 
suppressed for this PCB 

Status codes 

DL/I processing options 

JCB address 

"X^O 1 " Another task 
waiting for resource owned 
by this task 

Segment name feedback 

Maximum length of key 
feedback area 

Current length of the key 
feedback area 

"X'OI 1 * 1 Positioning is 
multiple (for ACBGEN only) 

Number of sensitive 
segments in the PCB (after 
ACBGEN only) 

Number of sensitive 
segments (for ACBGEN only) 

Offset to the first 
segment (for ACBGEN only) 

Key feedback area 



v„y 
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Cross Reference 










Hex 


Hex 


Name 


Offset 


Value 


DBPCB 









DBPCBAE 




9 


01 


DBPCBDBD 









DBPCBGO 




9 


02 


DBPCBJCB 




10 




DBPCBKFD 




24 




DBPCBLEV 




8 




DBPCBLE1 




8 




DBPCBLE2 




9 




DBPCBLKY 




1C 




DBPCBMKL 




1C 




DBPCBMUL 




1C 


01 


DBPCBNSS 




20 




DBPCBPRO 




C 




DBPCBSFD 




14 




DBPCBSOF 




22 




DBPCBSSN 




20 




DBPCBSTC 




A 




DBPCBTKW 




10 


80 
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DBT - Data Base Table 

DSECT Name: DLZPRDBT 

This DSECT describes the data bases needed for the partial reorganization process. It is built during the DBD 
analysis phase and used by all subsequent phases in PARTI and PART2. Its address is held in the common a^ea 
field (COMADBT). 



4' 



Offsets 



(Dec) 


(Hex) 


Length 


Name 





(0) 





DBT 





(0) 


4 


DBTSTART 





(0) 


8 


DBTCName 


8 


(8) 


4 


DBTADBD 


12 


(C) 


4 


DBTAPCB 


16 


(10) 


4 


DBTAJCB 


20 


(14) 


4 




24 


(18) 


4 


DBTASPCB 



Field/Flag Flag Code 
(Bit) 



28 



(1C) 



DBTASJCB 



32 


(20) 


4 




36 


(24) 


4 


DBTADMB 


40 


(28) 


4 


DBTFRASZ 


44 


(2C) 


2 


DBTHRAPB 


46 


(2E) 


2 


DBTHDMBN 


48 


(30) 


1 


DBTCID 


49 


(31) 


1 


DBTGFlag 
DBTQSCAN 

DBTQSOPT 

DBTQVSAM 

DBTQHISM 

DBTQHDAM 

DBTQHIDM 



Description 



Data base name 

Address of loaded DMB or 
DBD 

Address of primary PCB 

Address of JCB for primary 
PCB 

Reserved 

Address of a second PCB 
for scan 

Address of JCB for 
secondary PCB 

Reserved 

Address of DMB 

No. of blocks in root 
addressable area 

No. of root anchor points 
per block 

DMB number for this data 
base 

Data base internal ID 

DBT flag byte 

"X'80'" Scan required, not 

completed 

"X^O"' Optional scan 
required 

"X^O 1 " Access method is 
VSAM 

"X'lO*" Entry is for HISAM 
data base 

"X'OS"' Entry is for HDAM 
data base 

,, X l 04 t " Entry is for HIDAM 
data part 



4 ^ 

v.. 
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Offsets 



Field/Flag 



( 



( 



(Dec) (Hex) Length Name 

DBTQXPRI 



DBTQXSEC 



50 (32) 8 DBTCKEY 



Flag Code 
(Bit) 



58 (3A) 



60 (3C) 18 



DBTHSIZ1 



78 (4E) 


510 


DBTOSGT 


588 (24C) 




DBTLLEN 


Cross Reference 






Hex 
Name Offset 


Hex 
Value 


DBT 







DBTADBD 


8 




DBTADMB 


24 




DBTAJCB 


10 




DBTAPCB 


C 




DBTASJCB 


1C 




DBTASPCB 


18 




DBTCID 


30 




DBTCKEY 


32 




DBTCName 







DBTFRASZ 


28 




DBTGFlag 
DBTHDMBN 


31 
2E 




DBTHRAPB 


2C 




DBTHSIZ1 


3A 




DBTLLEN 


24C 


24C 


DBTOSGT 


4E 




DBTQHDAM 
DBTQHIDM 
DBTQHISM 
DBTQSCAN 
DBTQSOPT 
DBTQVSAM 
DBTQXPRI 
DBTQXSEC 
DBTSTART 


31 
31 
31 
31 
31 
31 
31 
31 



08 
04 
10 
80 
40 
20 
02 
01 



Description 

"X'02 IM Entry is for HIDAM 
prime index part 

"X'01 ' " Entry is for 
secondary index DB 

Name of key field for root 
segment 

Block size for first data 
set group 

Block sizes for 9 more 
data set groups 

Offsets in SGT for 
segments in this DB 

Force full word alignment 

"* -DBTSTART" length of a 
DBT entry 
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DDIR - DMB Directory 

DSECT Name: DLZDDIR 

The DMB directory contains an entry for every physical DMB (data management block) that can be accessed under 
DL/I control. The DMB directory is part of the DL/I nucleus and is created during DL/I system definition for 
online processing. The start address of the directory (SCDDLIDM), entry length (SCDDLIDL), and the number of 
entries (SCDDLIDN) are contained in the system contents directory (SCD). 



1> 



Offsets 
(Dec) (Hex) Length 

(0) 



Field/Flag Flag Code 




4 



(0) 
(4) 



8 (8) 8 

DDIRADDR HI BYTE Flag 



16 
20 
24 
26 
28 
30 
32 



(10) 
(14) 
(18) 
(1A) 
(1C) 
(1E) 
(20) 



Name 
DDIR 
DDIRBGIN 
DDIRQE 
DDIRQE2 
NOENQ 

DDIRSYM 

INDEX 

LOGIC 

BILT 

ACTIV 

LDSEQ 

LOAD 

DMBINCIL 

NOTLOAD 
DDIRADDR 
DDIRBLDL 
DDIRSGS 

DDIRCPMP 
DDIRNUMB 
DDIRCODE 
DDIRSECL 
DDIROPEN 
DDIRWFC 

DDIRIOP 



(Bit) 



. . .1 
. .1 
.1 
1 . 



1 . 
.1 



Description 

"*" Start of DMB directory entry 
QE of DMB directory entry 



"X'OV" No more secondary 
list ENQ 



DMB symbolic name 



"X'01 '" 
„ x , 02 ,r 

n x . 04 ,r 

"X'08 

"X'lO" 

"X f 20" ! 
m x , 40 ,„ 
CIL or 



This DMB already in 
built during this run. 



,, X'80 ,H 

DMB storage address 

TTR of DMB work area 

Size of SEGTEB entry 

Unused 

Number segment table entries 

DMB number 

Codes 

"X^O"' Secondary locked 

"X^O"' One DCB open 

"X^O 1 " DMB res and 
waiting storage 

"X'lO'" HSAM/SHSAM input OPEN 



1 ; 

vy 



/f~\ 



C 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



C 



C 



33 (21) 1 



34 (22) 
36 (24) 

44 (2C) 



DDIROOP 
DDIRNOSC 

DDIRNOUP 

DDIRC0D2 
DDIRLRSW 

DDIR1GRP 

DDIRGRP 

DDIRBAD 
DDIRREFR 
DDIROPT 
DDIRDMBN 

DDIRDBPT 
NEWDBD 



DDIREND 



1 . 



1 . . . 



. 1 . . . 



1 . 



DBDREL10 . 1.. 
IMSCF . . 1 . 



.11 



,1 . 



DDIRLEN ..11 



Description 

"X'OS 1 " HSAM/SHSAM output 
open 

"X , 04 l " Do not schedule 

,, X , 02 I " Reserved 

"X'OV" Do not schedule 
updates 

Codes 

"X'OS'" DMB located but 
not relocated 

"X'04' " DMB first in a 
shared index 

"X , 02 ,M DMB belongs to a 
shared index 

"X'OV" DMB init failed 

"X'80'" Index DBD referenced 

DMB resident option 

DMB name converted from 
DBD name 

Addr of entry in DMBName 
table flags in first byte 
of DDIRDBPT 

M X f 80 ,M Index table entries 
exist 

"X'40'" Release 1 .0 DBD 

"X^O 1 " IMS compatability 
reg 

"*" Last address of DMB 
direct 

"*-DDIR" length of one DMB 
directory entry 
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Cross Reference 








Hex 


Hex 


Name Offset 


Value 


ACTIV 


8 


08 


BILT 


8 


04 


DBDREL10 


2C 


40 


DDIR 







DDIRADDR 


10 




DDIRBAD 


21 


01 


DDIRBGIN 





00 


DDIRBLDL 


14 




DDIRCODE 


20 




DDIRC0D2 


21 




DDIRCPMP 


1C 




DDIRDBPT 


2C 




DDIRDMBN 


24 




DDIREND 


2C 


30 


DDIRGRP 


21 


02 


DDIRIOP 


20 


10 


DDIRLEN 


2C 


30 


DDIRLRSW 


21 


08 


DDIRNOSC 


20 


04 


DDIRNOUP 


20 


01 


DDIRNUMB 


1E 




DDIROOP 


20 


08 


DDIROPEN 


20 


40 


DDIROPT 


22 




DDIRQE 







DDIRQE2 


4 




DDIRREFR 


21 


80 


DDIRSECL 


20 


80 


DDIRSGS 


18 




DDIRSYM 


8 




DDIRWFC 


20 


20 


DDIR1GRP 


21 


04 


DMBINCIL 


8 


40 


IMSCF 


2C 


20 


INDEX 


8 


01 


LDS'EQ 


8 


10 


LOAD 


8 


20 


LOGIC 


8 


02 


NEWDBD 


2C 


80 


NOENQ 


4 


01 


NOTLOAD 


8 


80 






\^y 
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DIB - DL/I Interface Block 

DSECT Name: DLZDIB 

This DSECT describes the HLPI DL/I interface block fields. 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





DLZDIB 







(0) 


4 


DIB 







(0) 


2 


DIBVER 




2 


(2) 


2 


DIBSTAT 




4 


(4) 


8 


DIBSEGM 




12 


(C) 


1 


DIBFLAG 
DIBWAIT 


1111 1111 


13 


(D) 


1 






14 


(E) 


2 


DIBSEGLV 




16 


(10) 


2 


DIBKFBL 




18 


(12) 


2 


(3) 




24 


(18) 


4 


DIBCLRLN 
DIBLEN 


. . .1 .11 . 
. . .1 1 . . . 



Cross Reference 










Hex 


Hex 


Name 


Offset 


Value 


DIB 









DIBCLRLN 




18 


16 


DIBFLAG 




C 




DIBKFBL 




10 




DIBLEN 




18 


18 


DIBSEGLV 




E 




DIBSEGM 




4 




DIBSTAT 




2 




DIBVER 









DIBWAIT 




C 


FF 


DLZDIB 










Description 



Version of user DIB 

DL/I status code 

Target segment name 

DIB flag byte 

"X'FF 1 " task waiting 
(resource conflict) 

Reserved 

Level feedback 

Key feedback area length 

Reserved 

Length is fullword multiple 

"♦-DIBSTAT" Length for 
clearing DIB 

"*-DIB" length of DIB 
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DIB - DL/I System Interface Block 
DSECT Name: DLZDIB 

This DSECT describes the HLPI DL/I system interface block fields. 






Off! 

(Dec) 


sets 
(Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





DLZSDIB 







(0) 


4 


DIBS 







(0) 


8 


DIBID 




8 


(8) 


4 


DIBEIPAD 




12 


(C) 


4 


DIBREGSV(18 
DIBRBKWD 

DIBRERC 


. . .1 

. . .1 1 . . . 


84 


(54) 


4 


DIBPCBAD 




88 


(58) 


4 


DIBIO 




92 


(5C) 


4 


DIBIOSIZ 




96 


(60) 


4 


DIBPSIZE 




100 


(64) 


4 


DIBCOUNT 




104 


(68) 


4 


. DIBPRCNT 




108 


(6C) 


2 


DIBPATHC 




110 


(6E) 


1 


DIBSFlag 
DIBPSPLI 

DIBGPATH 

DIBKF 
DIBKFL 


1 

.1 

..1 

. . .1 


111 


(6F) 


1 


DIBTOTN 




112 


(70) 


2 


DIBNOPCB 




114 


(72). 


2 


DIBRTNCD 




116 


(74) 
(76) 


2 


DIBPCBNO 




118 


2 






120 


(78) 


4 


DIBPATHP 





Description 

System DIB 

DIB identifier 'DLZSDIB* 

EXEC interface program 
address (BATCH/MPS only) 

Register save area 

"DIBRESSV+4" savearea 
backward pointer 

"DIBREGSV+12" savearea for 
registers 14 thru 12 

PCB address list address 

Address of EIP common IOAREA 

Size of EIP common IOAREA 

IOAREA size required on call 

DL/I call parm-count 

Previous GET path call 
DL/I parm-count 

Data transfer segment count 

Flag byte 

"X f 80 ,n PSB generated for 
PL/I program (online only) 

"X'40 ! " Previous call was 
a GET path call 

"X^O"' Keyfeedback specified 

"X'lO 1 " Feedbacklen specified 

Number of calls on 
previous GET path call 

Maximum PCB index 

Failing return code 

PCB number for currentcall 

Reserved 

Address of path call 
header control blocks 



<_ 



v 



( 



■.:) 

y 
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( 



C 



124 


(7C) 


4 


DIBKFBAA 




128 


(80) 


2 


DIBKFBLL 




132 


(84) 


4 


DIBMSG 




136 


(88) 


4 


DIBMSGSC 




140 


(8C) 


4 


DIBMSGRC 




144 


(90) 


4 


DIBLUDIB 




148 


(94) 


4 


DIBHLPIA 




152 


(98) 


4 


D IBP ARM 




152 


(98) 


4 


DIBCNTAD 




156 


(9C) 


4 


DIBPARM1 




160 


(A0) 


4 


DIBPARM2 




164 


(A4) 


4 


DIBPARM3 




168 


(A8) 


4 


DIBSSAS 




168 


(A8) 


4 


DIBPARM4 




172 


(AC) 


4 


DIBPARM5 




176 


(BO) 


4 


DIBPARM6 




180 


(B4) 


4 


DIBPARM7 




184 


(B8) 


4 


DIBPARM8 




188 


(BO) 


4 


DIBPARM9 




192 


(CO) 


4 


DIBPARMA 




196 


(C4) 


4 


DIBPARMB 




200 


(C8) 


4 


DIBPARMC 




204 


(CC) 


4 


DIBPARMD 




208 


(DO) 


4 


DIBPARME 




212 


(D4) 


4 


DIBPARMF 




216 


(D8) 


4 


DIBPARMG 




220 


(DC) 


4 


DIBPARMH 




224 


(E0) 


4 


DIBPARMI 




228 


(E4) 


4 












DIBSLEN 111. . 1 



Save KFB area address 

Save KFB length address 

Address of message number 

Address of DL/I status 
code 

Address of failing return 
code address of statement 
identifier 

Address of last user DIB 

Address of HLPI parm-list 

Start of call parm list 

Address of parm-count 

Parm 1 = A (function) 

Parm 2 = A(PCB) 

Parm 3 = A(IOAREA) 

Start of SSAS 

Parm 4 = A(SSA1) 

Parm 5 = A(SSA2) 

Parm 6 = A(SSA3) 

Parm 7 = S(SSA4) 

Parm 8 = A(SSA5) 

Parm 9 = A(SSA6) 

Parm 10 = A(SSA7) 

Parm 11 = A(SSA8) 

Parm 12 = S(SSA9) 

Parm 13 = A(SSA10) 

Parm 14 = A(SSA11) 

Parm 15 = A(SSA12) 

Parm 16 = A(SSA13) 

Parm 17 = A(SSA14) 

Parm 18 = A(SSA15) 

Length is fullword 
multiple 

"♦-DIBS" length of system DIB 
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Hex 


Hex 




Hex Hex 


Name 


Offset 


Value 


Name 


Offset Value 


DIBCNTAD 


98 




DIBSSAS 


A8 


DIBCOUNT 


64 




DIBTOTN 


6F 


DIBEIPAD 


8 




DLZSDIB 





DIBGPATH 


6E 


40 






DIBHLPIA 


94 








DIBID 











DIBIO 


58 








DIBIOSIZ 


5C 








DIBKF 


6E 


20 






DIBKFBAA 


7C 








DIBKFBLL 


80 








DIBKFL 


6E 


10 






DIBLUDIB 


90 








DIBMSG 


84 








DIBMSGRC 


8C 








DIBMSGSC 


88 








DIBNOPCB 


70 








D IBP ARM 


98 








DIBPARMA 


CO 








DIBPARMB 


C4 








DIBPARMC 


C8 








DIBPARMD 


CC 








DIBPARME 


DO 








DIBPARMF 


D4 








DIBPARMG 


D8 








DIBPARMH 


DC 








DIBPARMI 


E0 








DIBPARM1 


9C 








DIBPARM2 


A0 








DIBPARM3 


A4 








DIBPARM4 


A8 








PIBPARM5 


AC 








DIBPARM6 


BO 








DIBPARM7 


B4 








DIBPARM8 


B8 








DIBPARM9 


BC 








DIBPATHC 


6C 








DIBPATHP 


78 








DIBPCBAD 


54 








DIBPCBNO 


74 








DIBPRCNT 


68 








DIBPSIZE 


60 








DIBPSPLI 


6E 


80 






DIBRBKWD 


C 


10 






DIBREGSV 


C 








DIBRERC 


C 


18 






DIBRTNCD 


72 








DIBS 











DIBSFLAG 


6E 








DIBSLEN 


E4 


E4 







f 



X. J 



Vy 
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DMB - Data Management Block (DMB) Prefix 

DSECT Name: DMB 

The DMB prefix is described as part of the general structure and description of the data management block (DMB), 
which is in the DLZIDLI macro. 



Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



( 



C 






(0) 





DMB 





(0) 


2 


DMBSIZE 
DMBV1 1 


2 


(2) 


2 


DMBLENTB 


4 


(4) 


2 


DMBSECTB 


6 


(6) 


1 


DMBORG 

DMBSHIS 

DMBISAM1 

DMBISAM2 

DMBSSAM 

DMBHSAM 

DMBHD 

DMBHI 

DMBNDEX 


7 


(7) 


1 


DMBLDDCB 


7 


(7) 


1 


DMBRES 1 


8 


(8) 


2 


DMBPDATA 



Description 

DMB size 

"X f 80 fM DL/I version 1 . 1 or later 

Offset from DMB to first 
PSDB (DMBPSDB) 

Offset from DMB to end of 
PSDB's+1 

DMB organization 

M X ! 01 '" Simple HISAM 

"X , 02 l " HISAM 

,, X , 03 ,n (Not used in DL/I DOS/VS) 

"X I 04 I " Simple HSAM 

"X'05 1 " HSAM 

"X f 06 ,M HDAM 

"X , 07 IM HIDAM 

"X'OS 1 " Index data base 

ACB number- 1 of sequential 

data set used to write 

index records on data base load 

(Not used in DL/I DOS/VS) 

Length of system data in 
index data base (protected) 
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Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 








DMBIMSC 


11 


(B) 


1 




12 


(C) 


1 


DMBNREF 


12 


(C) 


4 


DMBDALGR 



Licensed Material— Property of IBM 

ag Code 

(Bit) Description 10 (A) 1 DMBPFLG 

M X f 80 ,M IMS compatibility required | 

Reserved 

Number of entries in 
external reference table 

Address of direct 
algorithm communication 
table if HDAM (DMBDACS) ; 
LRECL number if HSAM 



12 (10) DMBPPRND "*" End of DMB prefix 

Note: 

This is also the address of the first ACB extension (DMBACBXT) . 

DMBPPRLN "DMBPPRND-DMB" length of 

the DMB prefix 



Cross Reference 








Hex 


Hex 


Name Offset 


Value 


DMB 







. DMBDALGR 


C 




DMBHD 


6 


06 


DMBHI 


6 


07 


DMBHSAM 


6 


05 


DMBIMSC 


A 


80 


DMBISAM1 


6 


02 


DMBISAM2 


6 


03 


DMBLDDCB 


7 




DMBLENTB 


2 




DMBNDEX 


6 


08 


DMBNREF 


C 




DMBORG 


6 




DMBPDATA 


8 




DMBJPFLG 


A 




DMBPPRLN 


C 


10 


DMBPPRND 


C 


10 


DMBRES 1 


7 




DMBSECTB 


4 




DMBSHIS 


6 


01 


DMBSIZE 







DMBSSAM 


6 


04 


DMBV1 1 





80 



vy 






V.y 
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DPPCB - PCB Dope Vector Table 

DSECT Name: DPPCB 

The PCB dope vector table is described as part of the general structure and description of the program specification 
block (PSB). 



RECORD LAYOUT - DPPCB 



Offsets 



Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) 







(0) 



(4) 



DPPCBDBD 



Maximum Length 



(6) 



( 



8 (8) 



12 (C) 



Current Length 



DPPCBLEV 



Maximum Length 



14 (E) 



Current Length 



16 (10) 



20 (14) 



DPPCBSTC 



Maximum Length 



22 (16) 2 



Current Length 



24 (18) 4 



DPPCBPRO 



Description 

The address of the location 
that contains DBPCBDBD 

Maximum length: Half word 
binary number which 
specifies number of storage 
units allocated for the 
string; byte count if 
character, bit count if bit 

Current Length: Half word 
binary number which 
specifies the number of 
storage units, within the 
maximum length, currently 
occupied by the string 
The address of the location 
that contains DBPCBLEV 

Maximum Length: Half word 
binary number which 
specifies number of storage 
units allocated for the 
string; byte count if 
character, bit count if bit 

Current Length: Half word 
binary number which 
specifies the number of 
storage units, within the 
maximum length, currently 
occupied by the string 

The address of the location 
that contains DBPCBSTC 

Maximum Length: Half word 
binary number which 
specifies number of storage 
units allocated for the 
string; byte count if 
character, bit count if bit 

Current Length: Half word 
binary number which 
specifies the number of 
storage units, within the 
maximum length, currently 
occupied by the string 

The address of the location 
that contains DBPCBPRO 



Section 5. Data Areas 5-53 



Licensed Material — Property of IBM 



Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



28 (1C) 



30 



(1E) 



32 (20) 4 



Maximum Length 



Current Length 



DPPCBJCB 



Description 

Maximum Length: Half word 
binary number which 
specifies number of storage 
units allocated for the 
string; byte count if 
character, bit count if bit 

Current Length: Half word 
binary number which 
specifies the number of 
storage units, within the 
maximum length, currently 
occupied by the string 

The address of the location 
that contains DBPCBJCB 






36 (24) 4 



42 (2A) 



44 (2C) 



DPPCBSFD 



40 (28) 2 Maximum Length 



Current Length 



DPPCBLKY 



The address of the location 
that contains DBPCBSFD 

Maximum Length: Half word 
binary number which 
specifies number of storage 
units allocated for the 
string; byte count if . 
character, bit count if bit 

Current Length: Half word 
binary number which 
specifies the number of 
storage units, within the 
maximum length, currently 
occupied by the string 

The address of the location 
that contains DBPCBLKY 



/f~^\ 



4~ 



48 (30) 



DPPCPNSS 



The address of the location 
that contains DBPCBNSS 



52 (34) 



DPPCBKFD 



The address of the location 
that contains DBPCBKFD 



56 (38) 2 Maximum Length 



58 (3A) 



Current Length 



Maximum Length: Half word 
binary number which 
specifies number of storage 
units allocated for the 
string; byte count if 
character, bit count if bit 

Current Length: Ha If word 
binary number which 
specifies the number of 
storage units, within the 
maximum length, currently 
occupied by the string 
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ALPHABETIC LIST OF FIELD/FLAG NAMES 



Name 


Hex 
Offset 


Hex 
Value 


DPPCBDBD 







DPPCBJCB 


20 




DPPCBKFD 


34 




DPPCBLEV 


8 




DPPCBLKY 


2C 




DPPCBPRO 


18 




DPPCBSFD 


24 




DPPCBSTC 


10 




DPPCBNSS 


30 
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DSG - Data Set Group 

DSECT Name: DSG 

The DSG is described as part of the general structure and description of the program specification block (PSB), 
which is part of the DLZIDLI macro. 

Note: With the exception of the first three characters of each field/flag name (DSG instead of JCB) the layout of 
the data set group is identical to the layout of the DSG Section of the job control block (JCB). 



4"" x - 



Offsets 
(Dec) (Hex) Length 


Field/Flag 
Name 


Flag Code 
(Bit) 


Description 


(0) 


DSG 








DSGDSG 




"* M Start of each DS 



(0) 



DSGDCBA 



4 


(4) 


2 


DSGDMBNO 




6 


(6) 


1 


DSGDCBNO 




7 


(7) 


1 


DSGINDA 

DSGDSOLS 

DSGDSORI 

DSGDSOHD 
DSGDSOHI 
DSGDSOH2 

DSGDSOH1 


1 

.1 . . .1 . . 

. .1 . 

.. .1 

1 . . . 

1 . . 



DSGDSOHS 









DSGDSOUP 


8 


(8) 


4 


DSGIRECA 


8 


(8) 


4 


DSGHSADD 


8 


(8) 


4 


DSGTTR 


2 


(C) 


2 


DSGBOFF 


4 


(E) 


1 


DSGINDB 
DSGSETLR 



DSGGETR 



DSGBATIS 



.1 



..1 



section of the JCB 

Address of ACB extension 
for this data set (KSDS 
ACB extension if HISAM) 

DMB number for this DSG 

ACB number of ACB in DMB 
(KSDS ACB number if HISAM) 

JCB indicators 

.. x i 80 .n This is last DSG in JCB 

"X , 44 ,n Data set group is 
root in index 

M X f 20 ,,, Data set group is HDAM 

"X'lO 1 " Data set group is HIDAM 

"X'OS 1 " (Not used in DL/I 
DOS/VS) 

M X , 04 IM Data set group is 
HISAM or simple HISAM 

"X f 02 ,M Data set group is 
HSAM or simple HSAM 

"x f 01 IM Data set group is 
SHSAM or SHISAM 



HSAM I/O area after open 

HSAM block size 

JCB indicators 

"X'SO 1 " (Not used in DL/I 
DOS/VS) 

"X^O" 1 (Not used in DL/I 
DOS/VS) 

"X^O 1 " (Not used in DL/I 
DOS/VS) 



f 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



15 (F) 1 



16 (10) 1 



DSGNXTIS 



DSGSETL2 



DSGGETGT 



DSGKEYSR 



DSGSTLIS 



DSGHDULD 
DSGCONST 

DSGPADKY 

DSGDUPS 

DSGSPOST 

DSGSWAP 

DSGHSWLR 
DSGINDG 



1 



. 1 . 



DSGRTNER 
17 (11) 1 (3) 



1 



DSGINDC 

DSGBLDEL 1 



1 

.1 

. .1 

. .. 1 . .. 

... .1. . 

1 . 

1 



1. . . 

1 . . 

1 . 

. . .1 



Description 

"X'10 1 " (Not used in DL/I 
DOS/VS) 



m x , 08 ,m 
DOS/VS) 



(Not used in DL/I 



"X'OV' (Not used in DL/I 
DOS/VS) 

"X'C^ 1 " (Not used in DL/I 
DOS/VS) 



M X'01 '" 
DOS/VS) 



(Not used in DL/I 



JCB indicators 

"X'SO 1 " This DSG belongs 
to delete/replace 

"X'AO 1 " HD unload is running 

M X f 20 IM Index data set 
contains constant 

"X f 1 ' " Search argument 
not equal to key length 

"S f 08 ,M Non-unique 
secondary index keys 

"X'OV" (Not used in DL/I 
DOS/VS) 

"X , 02 IM (Not used in DL/I 
DOS/VS) 

"X'OI"' HSAM wrong length record 

DSG indicators retrieves 
variable length flags 

"X'SO"' Segment prefix has 
been moved to work area 

"X^O 1 " Segment has been 
completely expanded 

"XMO"' Force complete 
segment expansion 

"X'OS"' The variable length 
routine has been entered 
for segment 

"X'OV" Data return call 

"X'02 ,M Path return call 

"X'OI 1 " Used by retrieve 

Reserved 
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Offsets 



Field/Flag Flag Code 



(Dec) (Hex) 


Length Name 


(Bit) 


20 (14) 


4 


DSGNOSAM 




24 (18) 


4 


DSGLROOT 








DSGDSEND 


. ..1 11 . 






DSGDSGLN 


. . .1 11 . 


Cross Reference 








Name Off 


Hex 
set 


Hex 
Value 




DSG 









DSGBATIS 


E 


20 




DSGBLDEL 


F 


80 




DSGBOFF 


C 






DSGCONST 


F 


20 




DSGDCBA 









DSGDCBNO 


6 






DSGDMBNO 


4 






DSGDSEND 


18 


1C 




DSGDSG 





00 




DSGDSGLN 


18 


1C 




DSGDSOHD 


7 


20 




DSGDSOHI 


7 


10 




DSGDSOHS 


7 


02 




DSGDSOH1 


7 


04 




DSGDSOH2 


7 


08 




DSGDSOLS 


7 


80 




DSGDSORI 


7 


44 




DSGDSOUP 


7 


01 




DSGDUPS 


F 


08 




DSGGETGT 


E 


04 




DSGGETR 


E 


40 




DSGHSADD 


8 






DSGHSWLR 


F 


01 




DSGINDA 


7 






DSGINDB 


E 






DSGINDC 


F 






DSGINDG 


10 






DSGIRECA 


8 






DSGKEYSR 


E 


02 




DSGLROOT 


18 






DSGNOSAM 


14 






DSGNXTIS 


E 


10 




DSGPADKY 


F 


10 




DSGRTNER 


10 


01 




DSGSETLR 


E 


80 




DSGSETL2 


E 


08 




DSGSPOST 


F 


04 




DSGSTLIS 


E 


01 




DSGSWAP 


F 


02 




DSGTTR 


8 







Description 
Retrieves HSAM ID 
RBA of current root 
"*" 

"DSGDSEND-DSGDSG" length of 
each DSG section of the JCB 






v.,^ 



\_ 



w 



> 
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C 



DWR - Data Work Record 

DSECT Name: DLZPRDWR 

This DSECT has the following uses: 

1. Record the old and new location of a segment. 

2. Record the location and old value of a pointer that may have to be updated. 

These records are created by RELOAD and SCAN. The same format is used by UPDATE for its spill table and file. 

Offsets 



(Dec) (Hex) 


Length Name 





(0) 





DWR 





(0) 


4 


DWRSTART 





(0) 


4 


DWRRMOVE 


4 


(4) 


4 


DWRRCOMP 


8 


(8) 


2 


DWROACT 


10 


(A) 


1 


DWRCTYPE 


11 


(B) 


1 


DWRCSORT 


11 


(B) 


1 


DWRCDSG 


12 


(C) 


6 


DWRCSKEY 


12 


(C) 


1 


DWRCRDB 


13 


(D) 


1 


DWRCRDSG 


14 


(E) 


4 


DWRRUPDT 
DWRLLEN 


Cross Reference 






Name 


Hex 
Offset 


Hex 
Value 


DWR 









DWRCDSG 




B 




DWRCRDB 




C 




DWRCRDSG 




D 




DWRCSKEY 




C 




DWRCSORT 




B 




DWRCTYPE 




A 




DWRLLEN 




12 


12 


DWROACT 




8 




DWRRCOMP 




4 




DWRRMOVE 









DWRRUPDT 




E 




DWRSTART 










Field/Flag Flag Code 
(Bit) 



Description 



New RBA of a moved segment 

Old RBA of a segment for 
compare 

Offset in ACT which built 
this record 

Record type code 

Minor sort key 

DSG of moved segment in K 
record 

Update sort key: DB ID, 
DSG, RBA 

Data base ID of segment to 
be updated 

Data set group ID of 
segment to be update 

RBA of segment to be updated 

*-DWR Length of DWR 
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EIPL - Exec Interface Program Parameter List 

DSECT Name: DLZEIPL 

This DSECT describes the DL/I HLPI interface program parameter list fields. 

Offsets 



(Dec) (Hex) Length 
(0) 
(0) 4 
(0) 4 



Field/Flag Flag Code 
Name (Bit) 

DLZEIPL 

EIPPARML 

EIPERMSG 



Description 



DL/I-EIP parameter list 

Address of DL/I message 
routine (online/batch/MPS) 



The following fields are used only in batch/MPS environment 

4 (4) EIPEPBO V-ADDRESS 



(8) 



EIPABEND 



M V(DLZEIPI)" address of 
exec interface program 
(DLZEIPBO) 

Address of DL/I ABEND 
routine 






^y 



Note: 

The following three fields must remain in the following order: 

1 . Address of the PCB list 

2. Pointer to length of initial storage area 

3. Address of initial storage area 



12 
16 

20 



29 



(C) 
(10) 

(14) 



(1D) 



4 
4 



EIPPCBL 
EIPPLILN 

EIPPLISA 

EIPSPCLN 



24 


(18) 


4 


EIPSDIB 


28 


(1C) 


1 


EIPFLAG 








EIPPLIPS 



EIPPLIPG 



EIPMPS 



EIPLLEN 



. .1 . 



Address of PCB list 

Pointer to length of 
initial storage area 

Address of initial storage 
area 

11.. "*-EIPPCBL" length of PL/I 
parameter list 

Address of system DIB 

Flag byte 

"X'SO'" PSB generated for 

PL/I program 

"X^O"" Application 

program is PL/I 

" X ■ 20 • " MPS environment 

reserved 

"*-EIPPARML" EIP parameter 

list length 
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Cross Reference 


» 






Hex 


Hex 


Name Offset 


Value 


DLZEIPL 







EIPABEND 


8 




EIPEPBO 


4 




EIPERMSG 







EIPFLAG 


1C 




EIPLLEN 


1D 


20 


EIPMPS 


1C 


20 


EIPPARML 







EIPPCBL 


c 




EIPPLILN 


10 




EIPPLIPG 


1C 


40 


EIPPLIPS 


1C 


80 


EIPPLISA 


14 




EIPSDIB 


18 




EIPSPCLN 


14 


OC 



c 



c 
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EXWCB - EXTRACT DEFINEs Work Control Block 

DSECT Name: EXWCB 

The EXTRACT DEFINES work control block is the work area used to build DEFINE commands for the automatic 
ISQL EXTRACT DEFINES utility. 






Offsets 



(Dec) 


(Hex) 


Length 


Name 





(0) 





EXWCB 





(0) 


8 


DECWORK 


8 


(8) 


4 


WORK 


12 


(C) 


4 


LINKS AV1 


16 


(10) 


4 


LINKSAV2 


20 


(14) 


4 


LINKSAV3 


24 


(18) 


4 


LINKSAV4 


28 


(1C) 


4 


LINKSAV5 


32 


(20) 


4 


LINKSAV6 


36 


(24) 


4 


LINKSAV7 


40 


(28) 


4 


S AVEBAS 1 


44 


(2C) 


4 


SAVEBAS2 


48 


(30) 


4 


S AVEBAS 3 


52 


(34) 


4 


ASQLD 


56 


(38) 


4 


ASQLCA 


60 


(3C) 


1 


DELIMIT 


61 


(3D) 


1 


DEL1 


62 


(3E) 


1 


DEL2 


63 


(3F) 


1 


DEL3 


64 


(40) 


12 


SYNERMSG 


66 


(42) 


10 


WORD 


76 


(4C) 


4 


WORDE 


80 


(50) 


4 


NEXTPOS 


84 


(54) 


4 


DPCKLEN 


88 


(58) 


4 


DPCKNUM 


92 


(5C) 


4 


LPCKLEN 


96 


(60) 


4 


TEMPSTR 



Field/Flag Flag Code 
(Bit) 



Description 

Work area for CVD 
Full word work area 
Linkage save area 



Variables to save base 
Register 

Address of SQLDSECT 
Address of SQLCA 
Delimiter found 
Three valid delimiters 






/€ 



Syntax error word 

The word 

Pointer to end of word 

Next default field 
starting position 

Destination parent 
concatenated key length 

Destination parent 
concatenated key number 

Logical parent 
concatenated key length 

Used as pointer to start position of 
concatenated key field 
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( 



( 



Offsets 

(Dec) (Hex) Length 

100 (64) 4 

104 (68) 4 

108 (6C) 4 



112 



114 



116 



(70) 



(72) 



(74) 



Field/Flag 
Name 

LENCKFT 



ACKFTAB 



LASTCKFE 



CKFTCNT 



COUNTER 



SEQSAVE 



Flag Code 
(Bit) 



118 


(76) 


2 


RETCD 


118 


(76) 


1 




119 


(77) 


1 


RETCD2 


120 


(78) 


4 


SAVSQLCD 


120 


(78) 


3 


SAVSQLC1 


123 


(7B) 


1 


SAVSQLC2 


124 


(7C) 


8 


SAVEERRP 


124 


(7C) 


1 


SAVERRP1 


125 


(7D) 


7 


SAVERRP2 


132 


(84) 


4 


SV1ERRD 


132 


(84) 


3 


SV1ERRD1 


135 


(87) 


1 


SV1ERRD2 


136 


(88) 


4 


SV2ERRD 


136 


(88) 


3 


SV2ERRD1 


139 


(8B) 


1 


SV2ERRD2 


140 


(8C) 


70 


SAVEERRM 


140 


(8C) 


1 


SAVERRM1 


141 


(8D) 


69 


SAVERRM2 


210 


(D2) 


1 


TFLAGS 
PNUMFLAG 



Description 

Length of concatenated key 
field table 

Address of first entry in 
concatenated key field table 

Address of the last 
concatenated key field 
entry that was added to the 
concatenated key field table 

Number of entries in 
concatenated key field table 

Used as counter for 
indexing into concatenated 
key field table 

Save for sequence number 
for routine table 

Return code for GETVIS 



COMMA 



Save for SQLCode 

Labels for making last 

Byte printable 

Save for SQLERRP 

Labels for clearing area 

To blanks 

Save for first SQLERRD 
value 

Labels for making last 

Byte printable 

Save for second SQLERRD 
value 

Labels for making last 

Byte printable 

Save for SQLEERRM 

Labels for clearing area 

To blanks 

Flags for execution 

"X^O"' PCB number 
specified 

"X^O"' Just passed comma 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



Description 



COMMAOFF 

NONALPHA 

PSBFLAG 

PCBFLAG 

PROCFLAG 

REPFLAG 

USERFLAG 

211 (D3) 1 PCBFLAGS 

LOGICAL 

212 (D4) 1 SEGFLAGS 

CONCAT 

VLC 

FLS 



213 (D5) 



214 (D6) 



,11 111 



.1 



. .1 



. .1 



1 



.1 



. .1 



. .1 



1 . , 



XDFLD 

EFLAGS 

INVALDEL 

CONTIN 
WARNING 1 

WARNING2 

WORDERR 
CANCEL 



INITFLGS 

CONNSQL .... . . .1 

EXWCBLEN 11.1 .111 



"X'BF 1 " Used to clear 
comma flag 

"X^O*" Looking for 
PCBnumber 

h x i 10 ... 'psBName* 
processed 

"X'OS"' 'PCBName' 
processed 

"X'OA"' 'DLIPROC 1 
processed 

,, X , 02 ,,, 'REPLACE 1 
processed 

n X'01 IM 'USERID' processed 

Flags for PCB processing 

"X'80 f " Access is logical 

Flags for segment 
processing 

"X^O"' Concatenated 
segment 

"X'40 ,M Virtual logical 
child 

"X^O 1 " Field level 
sensitivity 

"X 1 10 IM This is XDFLD 

Flags for errors 

"X'SO"' Invalid delimiter 
found 

"X'40 1 " Bad continuation 

"X^O"' Duplicate field 
name warning to be printed 

"X 1 10'" Warning to be 
printed for a field 
beginning with a 
non-alphabetic character 

"X'OS 1 " Error occurred 
while parsing the word 

"X'04 1 " Indicates a severe 
SQL error occurred and a 
cancel is necessary 

SQL connect flag 

"X'OI"' SQL/DS connect 
established 

"*-EXWCB" length of EXWCB 
DSECT 



.4 x 









^kimcJ^ 
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( 



Cross Reference 














Hex 


Hex 




Hex 


Hex 


Name Off 


'set 


Value 


Name 


Offset 


Value 


ACKFTAB 


68 




SAVERRM1 


8C 




ASQLCA 


38 




SAVERRM2 


8D 




ASQLD 


34 




SAVERRP1 


7C 




CANCEL 


D5 


04 


SAVERRP2 


7D 




CKFTCNT 


70 




SAVSQLCD 


78 




COMMA 


D2 


40 


SAVSQLC1 


78 




COMMAOFF 


D2 


BF 


SAVSQLC2 


7B 




CONCAT 


D4 


80 


SEGFlagS 


D4 




CONNSQL 


D6 


01 


SEQSAVE 


74 




CONTIN 


D5 


40 


SV1ERRD 


84 




COUNTER 


72 




SV1ERRD1 


84 




DECWORK 







SV1ERRD2 


87 




DELIMIT 


3C 




SV2ERRD 


88 




DEL1 


3D 




SV2ERRD1 


88 




DEL2 


3E 




SV2ERRD2 


8B 




DEL3 


3F 




SYNERMSG 


40 




DPCKLEN 


54 




TEMPSTR 


60 




DPCKNUM 


58 




TFLAGS 


D2 




EFLAGS 


D5 




USERFLAG 


D2 


01 


EXWCB 







VLC 


D4 


40 


EXWCBLEN 


D6 


D7 


WARNING 1 


D5 


20 


FLS 


D4 


20 


WARNING2 


D5 


10 


INITFLGS 


D6 




WORD 


42 




INVALDEL 


D5 


80 


WORDE 


4C 




LASTCKFE 


6C 




WORDERR 


D5 


08 


LENCKFT 


64 




WORK 


8 




LINKSAV1 


C 




XDFLD 


D4 


10 


LINKSAV2 


10 










LINKSAV3 


14 










LINKSAV4 


18 










LINKSAV5 


1C 










LINKSAV6 


20 










LINKSAV7 


24 










LOGICAL 


D3 


80 








LPCKLEN 


5C 










NEXTPOS 


50 










NONALPHA 


D2 


20 








PCBFLAG 


D2 


08 








PCBFLAGS 


D3 










PNUMFLAG 


D2 


80 








PROCFLAG 


D2 


04 








PSBFLAG 


D2 


10 








REPFLAG 


D2 


02 








RETCD 


76 










RETCD2 


77 










SAVEBAS 1 


28 










SAVEBAS2 


2C 










SAVEBAS 3 


30 










SAVEERRM 


8C 










SAVEERRP 


7C 
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FCB - File Control Block 

DSECT Name: FILECB 

This DSECT describes the fields used to control one file used by the partial reorganization utility. It is passed as a 
parameter to the work file manager. 






Offsets 



(Dec) 


(Hex) 


Length 


Name 





(0) 





FILECB 





(0) 


4 


FCBSTART 





(0) 


4 


FCBADTF 


4 


(4) 


4 


FCBABUF 


8 


(8) 


4 


FCBAEOD 


12 


(C) 


4 


FCBFRECT 


16 


(10) 


4 




20 


(14) 


2 


FCBHLLRL 


22 


(16) 


2 




24 


(18) 


2 


FCBHLREC 


26 


(1A) 


2 


FCBHBLKS 


28 


(1C) 


2 


FCBOCREC 


30 


(1E) 


1 


FCBGSTAT 
FCBQINPT 

FCBQOUTP 


31 


(1F) 


1 


FCBGREQU 
FCBQOPNI 

FCBQOPNO 

FCBQGET 
FCBQPUT 
FCBQCLOS 
FCBLLEN 



Field/Flag Flag Code 
(Bit) 



1 . 



Description 



Address of the DTF for 
this file 

Address of the current 
record 

Address of the end of data 
routine 

Number of records read or 
written 

Reserved 

Last logical record length 

Spare half word 

Logical record length 

Physical block size 

Offset of current record 
in block 

File status flags 

"X'80 1 " File is in input 
mode 



••X'40 1 " 
mode 



File is in output 



Request flags 

"X^O"' Open file for 
input 

"X^O"' Open file for 
output 

"X^O'" Get next record 

M X' 10'" Put a record 

"X , 08 ,H Close the file 

"♦-FCBSTART" length of a 
FCB entry 



v y 



/f~ 



c 
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Cross Reference 








Hex 


Hex 


Name Offset 


Value 


FCBABUF 


4 




FCBADTF 







FCBAEOD 


8 




FCBFRECT 


C 




FCBGREQU 


1F 




FCBGSTAT 


1E 




FCBHBLKS 


1A 




FCBHLLRL 


14 




FCBHLREC 


18 




FCBLLEN 


1F 


20 


FCBOCREC 


1C 




FCBQCLOS 


1F 


08 


FCBQGET 


1F 


20 


FCBQINPT 


1E 


80 


FCBQOPNI 


1F 


80 


FCBQOPNO 


1F 


40 


FCBQOUTP 


1E 


40 


FCBQPUT 


1F 


10 


FCBSTART 







FILECB 
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FDB - Field Description Block 

DSECT Name: FDB 

The field description block (FDB) is described as part of the general structure and description of the data 
management block (DMB), which is in the DLZIDLI macro. 



i._...- 



Offsets 




Field/Flag 


(Dec) 


(Hex) 


Length 


Name 





(0) 





FDB 





(0) 


8 


FDBSYMBL 


8 


(8) 


2 


FDBOFFST 


10 


(A) 


1 


FDBDCENF 
FDBLAST 



(Bit) 



11 



(B) 



FDBKEY 

FDBEQOK 

FDBSPEC 

FDBTYPE 
FDBZD 

FDBFP 

FDBPACK 

FDBHex 

FDBCHAR 

FDBFLENG 



1 . 



The following fields describes the /CK system related field 






(0) 


3 


FDBSYSNM 


3 


(3) 


5 




8 


(8) 


2 


FDBOFFCK 





(A) 


2 


FDBSYSLN 



Description 



Symbolic name 

Field offset from 
beginning of segment 

Flags 

"X'80 1 " Last FDB for this 
segment 

""X<40 ,M This is segment's 
sequence field 

f, X f 20 in Duplicate sequence 
fields allowed 

"X 1 10' " Special FDB 
(XDFLD, CK, or SX) 

"X'OV 1 " Field format bits 

"X'O?"' Field is zoned 
decimal 



n x , 04 ,n 
point 



Field is floating 



,, X'02 I " Field is packed 
decimal 

"X'01 ,H Field is 
hexadecimal 

"FDBPACK+FDBHex" field is 
character 

Executable length of field 



G ' /CK ' 

Remainder of field name 

Offset from beginning of 
concatenated key 

Bits 0-3 = X'0001 ' bits 
4-15 = length- 1 



^ ^ 

\ / 
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C 



The following fields describe the XDFLD 

Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 

(0) 8 FDBXDNM 

8 (8) 2 FDBXDSEC 



10 



(A) 



11 



(B) 



1 FDBXDFLG 

FDBXDLST 1 . . , 

FDBXDSYM . 1 . . 

FDBXDSSS . . 1 



FDBXDSPC 
FDBXDCON 
FDBXDSSQ 
FDBXDSOR 

FDBXDEQ 

FDBXDLEN 

FDBEND 

FDBLEN 



. .1 . 
. . . 1 



1 



.1 



11 . . 
11 . . 



Description 



FDB name 

Offset to the secondary 
list for this index 

Flags 

"X'SO"' Last FDB 

"X f 40 IM Pointer is 
symbolic 

"X'20 1 " Pointer contained 
in source/SUBSEQ data 

"X 1 10"' Special FDB 

"X'08 1 " Constant present 

"X'OA 1 " SUBSEQ present 

,, X'02 f " (Not used in DL/I 
DOS/VS) 

"X'OI 1 " Indexed segment 
same as indexed source 
segment 

Length of search field 

"*" End of FDB entry 

"FDBEND-FDBSYMBL" length 
of FDB entry 
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Cross Reference 






Hex 


Hex 


Name 


Offset 


Value 


FDB 







FDBCHAR 


A 


03 


FDBDCENF 


A 




FDBEND 


B 


OC 


FDBEQOK 


A 


20 


FDBFLENG 


B 




FDBFP 


A 


04 


FDBHex 


A 


01 


FDBKEY 


A 


40 


FDBLAST 


A 


80 


FDBLEN 


B 


OC 


FDBOFFCK 


8 




FDBOFFST 


8 




FDBPACK 


A 


02 


FDBSPEC 


A 


10 


FDBSYMBL 







FDBSYSLN 


A 




FDBSYSNM 







FDBTYPE 


A 


07 


FDBXDCON 


A 


08 


FDBXDEQ 


A 


01 


FDBXDFLG 


A 




FDBXDLEN 


B 




FDBXDLST 


A 


80 


FDBXDNM 







FDBXDSEC 


8 




FDBXDSOR 


A 


02 


FDBXDSPC 


A 


10 


FDBXDSSQ 


A 


04 


FDBXDSSS 


A 


20 


FDBXDSYM 


A 


40 


FDBZD 


A 


07 



4"^ 



V.x 



I 4 .' ' '•• 



X. - 



O 
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FER - Field Exit Routine Interface List 

DSECT Name: FER 

The FER (Field Exit Routine Interface List) is used to pass information to the named user-written exit routine 
whenever a designated field is to be processed. 



Offsets 
(Dec) (Hex) Length 



(0) 
(0) 



(1) 



(2) 



(4) 



Field/Flag Flag Code 



Name 
FER 

FERPEC 
FERPGET 
FERPPUT 
FERPFNCT 
FERPRET 

FERPINS 
FERPREP 
FERPSSA 

FERPXDF 



8 


(8) 


2 




10 


(A) 


2 


FERPPFL 


12 


(C) 


4 


FERPPFA 


16 


(10) 


4 


FERPUSA 


20 


(14) 


2 




22 


(16) 


2 


FERPUFL 



(Bit) 



11 . . .11 
11.1 .11 



11 



.11 



II . . 1 . . 
11.1 1 . . 

III . . .1 



111 



FERPCSC 

FERPCSOK . 1 . . 

FERPCSNT 11.. 

FERPCSCT 11.. 

FERPCSFE 11.. 

FERPCSTC 11.. 
FERPPSA 



,11 



Description 



Entry code 
"C'G"' GET 

Function code 

"C'G 1 " retrieve segment 
conversion 

"CI"' insert 

"C'R 1 " replace 



"C'S IM retrieve SSA 
conversion 

"C'X"' retrieve SSA 
conversion for XDFKD 

Conversion status code 

"C '" OK 

"C'A"' numeric truncation 
error 

"C'B 1 " character 
truncation error 

M C'C ,M format error 

"D'D 1 " type conflict 

Physical segment address 
(if variable length points 
to two byte length field) 

Reserved 

Physical field length 
(zero if virtual field) 

Physical field address 
(zero if virtual field) 

User segment address 

Reserved 

User field length 
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Offsets 

(Dec) (Hex) Length 

24 (18) 4 

28 (1C) 4 

32 (20) 4 



Field/Flag Flag Code 
Name (Bit) 

FERPUFA 

FERPFSBA 

FERPUWA(12) 

FERPEND .1.1 



FERPLEN 



.1.1 



Description 

User field address 

FSB address 

User work area 

"*" End of field exit 
routine interface list 

"FERPEND-FERPEC" length of 
the field exit routine 
interface list 






Cross Reference 






Hex 
Name Offset 


Hex 
Value 


FER 







FERPCSC 


2 




FERPCSCT 


2 


C2 


FERPCSFE 


2 


C3 


FERPCSNT 


2 


C1 


FERPCSOK 


2 


40 


FERPCSTC 


2 


C4 


FERPEC 







FERPEND 


20 


50 


FERPFNCT 


1 




FERPFSBA 


1C 




FERPGET 





C7 


FERPINS 


1 


C9 


FERPLEN 


20 


50 


FERPPFA 


C 




FERPPFL 


A 




FERPPSA 


4 




FERPPUT 





D7 


FERPREP 


1 


D9 


FERPRET 


1 


C7 


FERPSSA 


1 


E2 


FERPUFA 


18 




FERPUFL 


16 




FERPUSA 


10 




FERPUWA 


20 




FERPXDF 


1 


E7 









c 
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FERT - Field Exit Routine Table 

DSECT Name: FERT 

The FERT (field exit routine table) is used to hold information about a user-written exit routine. 



Description 

Module name 

Module entry point 

Module length 

Pointer to next FRT entry 

Flag byte 

M X'80 ,M Control block 
dumped 

Reserved 

"*" end of field exit 
routine table 

"FERTEND-FERTName" length 
of field exit routine 
table 



Off; 
(Dec) 


sets 
(Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





FERT 







(0) 


8 


FERTNAME 




8 


(8) 


4 


FERTRTEP 




12 


(C) 


4 


FERTRTLG 




16 


(10) 


4 


FERTPRES 




20 


(14) 


1 


FERTFLAG 
FERTDUMP 


1 



21 



(15) 







FERTEND 
FERTLEN 


Cross Reference 




Name 


Hex 
Offset 


Hex 
Value 


FERT 







FERTDUMP 


14 


80 


FERTEND 


15 


18 


FERTFLAG 


14 




FERTLEN 


15 


18 


FERTNAME 







FERTPRES 


10 




FERTRTEP 


8 




FERTRTLG 


C 





.1 1 



.1 1 
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FLD - Field Level Description 
DSECT Name: FLD 

The FLD (field level description) block is used to hold information about fields, operators, and connectors. 



Offsets 



Field/Flag Flag Code 



(Dec) 


(Hex) 


Length 


Name 


(Bit) 


Description 





(0) 





FLD 









(0) 


1 


FLDF1 




FLD flags 








FLDDATA1 


1 


"X^O"' Field qualified on 
data 








FLDKEY1 


.1 


"X^O"' Field qualified on 
key 








FLDNOCOV 


..1 


"X^O"' No conversion for 
this field 








FLDNXTSM 


... 1 


"X'10 1 " Next field is the 
same 








FLDDPAR 


1 . . . 


"X'OS"' Field in 
destination parent 








FLDLCH 


1 . . 


"X , 04 IM Field in logical 
child 


1 


(1) 


1 


FLDMBR 




Encoded 
operators/connectors 








FLDMEMEQ 


1 . 


"X'SO 1 " Operator has = 
sign 








FLDMEMLT 


. 1 . . 


"X^O"' Operator has < 
sign 








FLDMEMGT 


. .1 . 


"X^O*" Operator has > 
sign 








FLDMEMNE 


.11 


" FLDMEMGT+FLDMEMLT " 
operator is not equal 








FLDMEMAD 


1 . . 


,, X I 04 ,M AND connector 








FLDMEMOR 


1 . 


"X , 02 l " OR connector 








FLDMEMRP 


1 


"X'OI*" Right parenthesis 


2 


(2) 


2 


FLDSSAOF 




Offset to value area in 
SSA for this field 


4 


(4) 


1 


FLDFLENG 




Executable length of field 


5 


(5) 


3 






Reserved 








FLDEND 


1 . . . 


»*» 








FLDLENG 


1. . . 


"FLDEND-FLD" length of 



each FLD entry 
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Cross Reference 



Name 



Hex Hex 
Offset Value 



Vlddatm 

PLDDPAR 

FLBEND 

FLDFLENG 

FLDF1 

FLDKEY1 

FLDLCH 

FLDLENG 

FLDMBR 

FLDMEMAD 

FLDMEMEQ 

FLDMEMGT 

FLDMEMLT 

FLDMEMNE 

FLDMEMOR 

FLDMEMRP 

FLDNOCOV 

FLDNXTSM 

FLDSSAOF 






5 
4 



5 



80 
08 
08 



40 
04 
08 

04 
80 
20 
40 
60 
02 
01 
20 
10 



C 
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FSB - Field Sensitivity Block 

DSECT Name: FSB 

The FSB (field sensitivity block) is used to hold information about a field which has been defined with a SENFLD 
statement during PSBGEN. 



4 " 



Offsets 



(Dec) 


(Hex) 


Length 


Name 





(0) 





FSB 





(0) 


8 


FSBFLDNM 





(0) 


4 


FSBFDBP 


4 


(4) 


2 


FSBPCHA 


6 


(6) 


2 


FSBPHYAD 


8 


(8) 


2 


FSBPVLOC 


10 


(A) 


1 


FSBPVTYP 

FSBLAST 

FSBKEY 

FSBEQOK 

FSBDPF 



Field/Flag Flag Code 
(Bit) 



11 



12 



14 



FSBTYPE 
FSBZD 

FSBFP 

FSBCHAR 

FSBPACK 







FSBHEX 


(B) 


1 


FSBFLAG 
FSBSSA 

FSBOVF 
FSBCR 


(C) 


2 


FSBPVLEN 


(E) 


2 


FSBUVLOC 



.1 



Description 

Field name 

FDB address (ACBGEN only) 

Physical view chain 
pointer (ACBGEN only) 

Field physical adjustment 
factor (ACBGEN only) 

Displacement in physical segment 

Physical field type 

"X'SO"* Last FSB 

"X f 40'" Sequence field 

"X^O 1 " Duplicate sequence allowed 

"X 1 10 1 " Field is in 
destination parent 

"X f 08 ,M Reserved 

"X'07' n Field format bits 

"X'OV'" Field format is 
zoned decimal 

"X f 04 ,M Field format is 
floating point 

"X'03'" Field format is 
character 

"X , 02 ,M Field format is 
packed decimal 

"X'OV" Field format is binary 

Flags 

"X'SO 1 " Field may be used 
in an SSA 

"X'40'" Field has subfields 

"X^O 1 " Conversion required 

Physical field length 
(executable) 

Field displacement in 
user's view 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



Description 



C 



16 (10) 



1 



17 (11) 1 

18 (12) 2 

20 (14) 4 

24 (18) 4 

28 (1C) 4 



C 



FSBUVTYP 

FSBIV 

FSBFER 

FSBVF ... 1 

FSBNR 

FSBUZD 

FSBUFP 

FSBUCHAR 

FSBUPACK 

FSBUHex 

FSBUVLEN 

FSBIVA 

FSBFERTA 

FSBCHAIN 
FSBEND . . 1 
FSBLEN . . 1 



User's field type 
"X'80 ,M Reserved 

"X'40 f " Initial value 
specified 

"X'20"' Field exit routine 
specified 

"X'lO"' Field is virtual 

n X'08'" Replace prohibited 

"X'07"' User field format 
is zoned decimal 

"X , 04 ,M User field format 
is floating point 

"X'OS"' User field format 
is character 

"X l 02 l " User field format 
is packed decimal 

"X'OV" User field format 
Is binary 

Reserved 

User's field length 
(executable) 

Pointer to specified 
initial value 

Field exit routine table 
entry address 

Chain pointer for ACBGEN 

"*" end of FSB entry 

"FSBEND-FSBFLDNM" length 
of FSB entry 
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Cross Reference 






Hex 
Name Offset 


Hex 
Value 


FSB 







FSBCHAIN 


1C 




FSBCHAR 


A 


03 


FSBCR 


B 


20 


FSBDPF 


A 


10 


FSBEND 


1C 


20 


FSBEQOK 


A 


20 


FSBFDBP 







FSBFER 


10 


20 


FSBFERTA 


18 




FSBFLAG 


B 




FSBFLDNM 







FSBFP 


A 


04 


FSBHex 


A 


01 


FSBIV 


10 


40 


FSBIVA 


14 




FSBKEY 


A 


40 


FSBLAST 


A 


80 


FSBLEN 


1C 


20 


FSBNR 


10 


08 


FSBOVF 


B 


40 


FSBPACK 


A 


02 


FSBPCHA 


4 




FSBPHYAD 


6 




FSBPVLEN 


C 




FSBPVLOC 


8 




FSBPVTYP 


A 




FSBSSA 


B 


80 


FSBTYPE 


A 


07 


FSBUCHAR 


10 


03 


FSBUFP 


10 


04 


FSBUHEX 


10 


01 


FSBUPACK 


10 


02 


FSBUVLEN 


12 




FSBUVLOC 


E 




FSBUVTYP 


10 




FSBUZD 


10 


07 


FSBVF 


10 


10 


FSBZD 


A 


07 



c 



/T "X 






V 



c 
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HLPIL - High Level Program Interface Parameter List 

DSCET Name:. DLZHLPIL 

This DSECT describes the fields contained in the HLPIL parameter list. 



Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



(0) 

(0) 4 

4 (4) 4 

8 (8) 4 

8 (8) 4 

8 (8) 4 



24 (18) 



28 (1C) 



32 (20) 



DLZHLPIL 
HLPIARGO 

HLPIDIBP 
HLPIPSBN 

HLPICKID 

HLPIPCBI 



12 


(C) 


4 


HLPISEGN 


16 


(10) 


4 


HLPISIOA 


20 


(14) 


4 


HLPILIOA 



32 (20) 



HLPIOFST 



HLPIKFBA 



HLPIKFBL 



HLPIQS 



HLPIOPER 



Description 



Address of ARG0 parameter 
list 

Address of user DIB 

Pointer to PSBName for 
scheduling call 

Pointer to checkpoint ID 
for checkpoint call 

Pointer to PCB index 
number 

Pointer to segment name 

Address of the segment I/O 
area 

Pointer to the length of 
the I/O area 

Pointer to the length of 
the variable destination 
parent 

Pointer to key feedback 
area 

Pointer to key feedback 
area length 

"*" the next four fields 
are repeated for each 
qualification section of a 
Boolean SSA 

Pointer to the operators 



Note: 

HLPIOPER actually points to an area that contains 
a two-byte relational operator field and a one-byte 
boolean operator field 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



HLPIOPRL 



1 . 



Description 

"2" Relational operator 
length, same length as 
SSARO field in DSECT 
DLZSSA 



^y 



HLPIOPBL 



.1 



36 (24) 


4 


HLPIFLDN 


40 (28) 


4 


HLPIFLDV 


44 (2C) 


4 


HLPILFLD 
HLPIQSLN 


Cross Reference 






Hex 
Name Offset 


Hex 
Value 


DLZHLPIL 







HLPIARGO 







HLPICKID 


8 




HLPIDIBP 


4 




HLPIFLDN 


24 




HLPIFLDV 


28 




HLPIKFBA 


1C 




HLPIKFBL 


20 




HLPILFLD 


2C 




HLPILIOA 


14 




HLPIOFST 


18 




HLPIOPBL 


20 


01 


HLPIOPER 


20 




HLPIOPRL 


20 


02 


HLPIPCBI 


8 




HLPIPSBN 


8 




HLPIQS 


20 


20 


HLPIQSLN 


2C 


10 


HLPISEGN 


C 




HLPISIOA 


10 





. . .1 



"1" Boolean operator 
length, same length as 
SSABO field in DSECT 
DLZSSA 

Pointer to field name 

Pointer to field value 

Pointer to length of the 
field value 

"♦-HLPIQS" length of 
repeating section 



v_.y 



V> 



o 
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IDBD - DBD Directory 

DSECT Name: DLZIDBD 

The DLZIDBD macro maps the control blocks which are used to pass information about data base structure from 
the DBD generation step (DBDGEN) to the block builder step (ACBGEN). 



Offsets 



(Dec) 


(Hex) 


Length 


Name 





(0) 





DBDDSECT 





(0) 


1 


AMODLEV 





(0) 


4 


APREFIX 


4 


(4) 


4 


ASEGTAB 


8 


(8) 


4 


AFLDTAB 


12 


(C) 


4 


ALCHILD 


16 


(10) 


4 


AEXTDBD 


20 


(14) 


4 


ASORTAB 


24 


(18) 


4 


ARMVTAB 


28 


(1C) 


4 


AINDXTAB 


32 


(20) 


4 


ADSGCB 


tEFIX 




(0) 





PREFIX 
PREBGIN 





(0) 


8 


PREDBDNM 


8 


(8) 


2 


PRENOLEV 


10 


(A) 


2 


PRENOSEG 


12 


(C) 


1 


PREACCES 


13 


(D) 


1 


PRENODSG 


14 


(E) 


2 


PRENODBD 


16 


(10) 


8 


PRERNDM 


24 


(18) 


2 


PRENOLCH 


26 


(1A) 


2 


PREAP 


28 


(1C) 


4 


DBDPFRBN 


32 


(20) 


4 


DBDPFBYT 



Field/Flag Flag Code 
(Bit) 



Description 

DL/I Release level during DBDGEN 

X'OO^Release 1 .0 

X 1 1 1 '=Release 1.1 and later 

Address of prefix 

Address of SEGTAB 

Address of FLDTAB 

Address of LCHILD 

Address of EXTDBD 

Address of source segment table 

Address of direct 
conversion CSECT 

Address of index secondary 
list table 

Address of DSG control 
blocks (ACB or DTF) 



DBD name 

Number of levels 

Number of segments 

Access method see below 
for values 

Number of data sets 

Number of external 
data bases referenced 

Randomizing algorithm name 

Number of logical children 

Number of root anchor points 

Maximum relative block 
number (HD) 

Maximum number bytes in 
prime area (HD) 
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'PREACCES' values — type of organization 



Offsets 



Field/Flag Flag Code 
(Dec) (Hex) Length Name (Bit) 



PREIMSC 1 

PREACCCD 

PRESHIS 

PREISAM1 

PRESSAM 

PREHSAM 

PREHD 

PREHI 

PRENDEX 1 

DMAN entry (one per DSG; same as DMAN DSECT) 

36 (24) 8 PREDD1 

44 (2C) 4 PREDEV1 

48 (30) 1 PREID 

49 (31) 1 PRENSGA 

50 (32) 2 PREDELTA 



11 
.1 
1 . 
11 

.1 
1 . 
11 



52 


(34) 


2 


PRELSL 


54 


(36) 


2 


PRESSL 


56 


(38) 


2 


PRELKL 


58 


(3A) 


2 


PRESKL 


60 


(3C) 


2 


PRELRECL 


62 


(3E) 


2 


PREBLKSZ 


64 


(40) 


2 


PREOLREC 


66 


(42) 


2 


PREOBLKS 


68 

AN 


(44) 
DSECT 


8 


PREDD2 





(0) 





DMAN 
DMANBGIN 





(0) 


8 


DMNDD1 


8 


(8) 


4 


DMNDEV1 


12 


(C) 


1 


DMNID 



Description 



"X'80 1 " IMS compatibility 
required 

"X'OF"' Organization flags 

"1" simple HISAM 



"2" HISAM case I 

"3" Reserved 

"4" Simple HSAM 

"5" HSAM 

"6" HDAM 

"7" HIDAM data 

"8" HIDAM index 

Input file name 

Device type 

DMAN number 

No of segments in this dataset 

Number of free space scan 
cylinders 

Longest 

Shortest segment 

Longest 

Shortest key this data set 

Logical record length 

Block size 

ESDS logical record length 

ESDS block size 

Output file name 



Input file name 
Device type 
DMAN number 



Xs 






V 
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Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag 
(B 


Code 
it) 


Description 


13 


(D) 


1 


DMNNSGA 






Number of segments in this 
data set 


14 


(E) 


2 


DMNDELTA 






Number of free space scan 
cycles 


16 


(10) 


2 


DMNLSL 






Longest 


18 


(12) 


2 


DMNSSL 






Shortest segment 


20 


(14) 


2 


DMNLKL 






Longest 


22 


(16) 


2 


DMNSKL 






Shortest key this data set 


24 


(18) 


2 


DMNLRECL 






Logical record length 


26 


(1A) 


2 


DMNBLKSZ 






Block size 


28 


(1C) 


2 


DMNOLREC 






ESDS logical record length 


30 


(1E) 


2 


DMNOBLKS 






ESDS block size 


32 


(20) 


8 


DMNDD2 






Output file name 








DMANEND 


. .1 . 


1 . . . 


"*•• 








DMANSZE 


. .1 . 


1 . . . 


"DMANEND-DMANBGIN" 



SEGTAB 



Note that this DSECT can be used for both REL 1.0 and 1.1 



( 






(0) 





SEGTAB 

SEGBGIN 





(0) 




SEGDSNO 


1 


(1) 




SEGPHYCD 


2 


(2) 




SEGPARPC 


3 


(3) 




SEGLEVEL 


4 


(4) 




SEGNOLCH 


5 


(5) 




SEGNOFLD 


6 


(6) 


2 


SEGLENG 



Max length for variable length segs 
Max length for compressible segs 



12 



(8) 
(C) 



SEGFREQ 
SEGSEGNM 



DMAN number 

Segment code 

Parent segment code 

Level 

Number of logical children 

Number of fields 

Data length-segment length 
for fixed length segments 



Frequency X 100 
Segment name 
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Offsets 



Field/Flag Flag Code 



(Dec) 


(Hex) 


Length 


Name 


(Bit) 


20 


(14) 


1 


SEGFLG1 

CTR 

PTF 

PTB 

PP 

LTF 

LTB 

LP 

NOTWIN 


1 . . . 

. 1 . . .... 

. . 1 . .... 

. . .1 

1 . .. 

.1 . . 

1 . 

1 


21 


(15) 


1 


SEGFLG2; 

PHYISRT 

VIRISRT 

LOGISRT 

PHYDLET 

VIRDLET 

LOGDLET 

PHYRPL 

VIRRPL 

LOGRPL 

ISRTF 

ISRTL 

ISRTH 


1 

.1 

11 . . 

. .1 

. . .1 

. .11 

1 . . . 

1 . . 

11. . 

1 . 

1 

11 


22 


(16) 


1 


SEGFLG3 

SEGPRDT 

SEGRESB1 

SEGRESB2 

SEGTYP64 


1 . . . .... 

.1 

. .1 

. . .1 



SEGPCBT 



SEGSPARE 



. . . 1 . . . 



111 



Description 
Pointer description 
"X'80"* CTR 
» X '40'" PT FWD 
.. x . 2 o"» pt BKD 
„ x , 10 ,n p p 

M X , 08 ,U LT FWD 
m x .q 4 im LT BKD 

"X*02'" LP 
"X'01 '" 7 NOTWIN 
Update rules 
"X'80 ,M Physical insert 
"X'40'" Virtual insert 
"X'CO*" Logical insert 
"X^O 1 " Physical delete 
"X'lO 1 " Virtual delete 
"X^O"' Logical delete 
"X'08 f " Physical replace 
"X'04"' Virtual replace 
"X'OC 1 " Logical replace 
,, X , 02 IM Insert first 
"X'01 '" Insert last 
"X'OS"* Insert here 

"X'SO 1 " Paired 

"X^O"' Reserved 

"X'20"' Reserved 

"X'lO 1 " Type 64 processing 
required 

"X'OS 1 " Parent has PC 
backward to this segment 

"X'07"' Number of spare 
pointers 



\^y 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



( 



( 



23 (17) 



1 



24 (18) 4 
28 (1C) 2 

30 (1E) 2 



SEGFLG4 

SEGLCHLD 
DBDSSN 

DBDSSOFF 



32 


(20) 


4 


SEGFLDTB 


36 


(24) 


2 


DBDSPFSZ 


38 


(26) 


2 


SEGLENGV 
SEGEND10 
SEGSZE10 



.1 . 1 



.1 . 1 



The following fields exist only in Rel 1.1 DBDs 

40 (28) 4 SEGPACRV 
44 (2C) 1 SEGPACOP 

SEGCPRT 

SEGTYPVL 

SEGPACKY 

SEGPACIT 



45 (2D) 



SEGPACRT 



SEGEND11 



FLDTAB 











(0) 





FLDTAB 
FLDBGIN 





(0) 


8 


FLDNAME 


8 


(8) 


2 


FLDSTART 



. . . .1 



,11 



SEGSZE11 ..11 



Description 

Number of physical 
children 

Offset of first LCHILD 

Number of source segments 
for segment 

Offset to first source 
segment entry 

Offset of first field in 
FLDTAB 

Prefix size 

Minimum length or for 
variable length segment 

"*" End of Release 1 .0 
SEGTAB entry 

"*-SEGBGIN" length of 
release 1.0 SEGTAB entry 



Reserved 

Segment compaction options 

"X f 08' M segment has 
compress routine 

,, X , 04 t " Segment is 
variable length 

"X , 02 ,M Key expand 
entry point is defined 

"X'OT" Initialization, 
entry point is defined 

Address of segment compact 
table for compact route 

"*" End of release 1 .1 
SEGTAB entry 

"♦-SEGBGIN" length of 
release 1 . 1 entry 



Name 

Start position offset 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



Description 



10 



(A) 



FLDFLAG 
LSTFLD 

KEYFLD 

FLDMSEQ 

FLDSPEC 
FLDX 

FLDP 

FLDC 

FLDFP 

FLDZ 



1 . 



. .1 



11 



11 


(B) 


1 


FLDLEN 




12 


(C) 


8 


FLDSNAME 




20 


(14) 


4 


FLDSEGTB 

FLDEND 

FLDSZE 


. . .1 1 . . . 
. . .1 1 . . . 


LCHILD 













(0) 





LCHILD 
LCHBGIN 







(0) 


8 


LCHSEGNM 




8 


(8) 


1 


LCHCODE 
TSGTAB 


■ 1 



.11 



Flags 



"X'SO 1 " Last field for a 
SEGTAB 

"X'AO"' This field is SEQ 
Field 

"X^O'" SEQ field is 
NON-UNIQUE 

"X" 10'" Special field 

"X'01 '" Field is 
hexadecimal 

M X , 02 ,M Field is packed 
decimal 

"X'OS"' Field is 
character 

"X'04*" Field is floating 
point 

"X'OV" Field is zoned 
decimal 

Length 

Source field name 

SEGTAB entry offset 



"FLDEND-FLDBGIN" 



(8) 



LCHEDBD 



Name 



"128" LCHEDBD address is a 
SEGTAB entry 

logical insert rule - 
last (same as ISRTL) 

logical insert rule - 
first (same as ISRTF) 

logical insert rule - 
here (same as ISRTH) 

Offset to EXTDBD or SEGTAB 
entry 



1. 



V. 



C 
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C 



( 






Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



12 (C) 



1 



LCHFLAG 
LSTLCH 

LCHPRI 



LCHIEN 



LCHTKPH 



LCHLP 



LCHNDX 



LCHLCF 



LCHLCB 



If bit 2 of LCHFLAG is set; 

bits 5-7 have the following meaning: 



EXTDBD 







(0) 





(0) 


8 


(8) 


SORTAB 







(0) 





(0) 


8 


(8) 



EXTDBD 
EXTDBNM 
EXTRSVD 
EXDBDSZ 

DBDSORTB 

DBDSORNM 

DBDSSFLG 

DBDSSK 

DBDSSP 

DBDSSD 



1 . 



1 . 

.1 . . 

. . 1 . 

. . .1 

. . . .1 



. . 1 



Bit 5 


Blank values are not indexed. 




Bit 6 


Zero values are 


not indexed. 




Bit 7 


LCHIBYTE values are not indexed. 




13 


(D) 1 


LCHIBYTE 




14 


(E) 2 


LCHPRDSG 




16 


(10) 8 


LCHFLDNM 








LCHEND 


. . .1 1 






LCHSZE 


. . .1 1 



11 . . 



.1 



Description 



"X'80 ,M last entry for SEGTAB 

.. x . 40 ... p r i mary HIDAM 
index definition (BB only) 

"X^O"' indexing segment 
definition 

"X'lO"' LPCK is carried 
physically 

"X'OS"' entry is LP 
definition 

"X'OA"' indexed segment 
definition 

M X'02 ,M Single logical 
child forward pointer used 

"X'01 ,u . Double logical 

child forward/backward pointer 



Non-index value 

Offset to paired segment 

Indexed field name 
»*» 

"LCHEND-LCHBGIN" 



'* -EXTDBD" 



Source segment name 

Source flag 

"X'SO 1 " Data option=key 

"X^O"' =path 

"X^O"' =data 
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Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 


8 (8) 


4 


DBDSSDBO 








DBDSORSZ 


11 . . 


INDEXTAB 








(0) 





INDXTAB 




(0) 


1 


INDXFLAG 




1 (1) 


3 






4 (4) 


4 


(3) 








INDXTBSZ 


... 1 



Description 
Offset to database entry 
"♦-DBDSORTB" 



Index table flag byte 

Remaining fields are as 
defined 

For DMB secondary lists 

"♦-INDXTAB" size of one 
entry 



f 






if \ 



(f 
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Zross Reference 














Hex 


Hex 




Hex 


Hex 


Name Offset 


Value 


Name 


Offset 


Value 


ADSGCB 


20 




FLDFP 


A 


04 


AEXTDBD 


10 




FLDLEN 


B 




AFLDTAB 


8 




FLDMSEQ 


A 


20 


AINDXTAB 


1C 




FLDNAME 







ALCHILD 


C 




FLDP 


A 


02 


AMODLEV 







FLDSEGTB 


14 




APREFIX 







FLDSNAME 


C 




ARMVTAB 


18 




FLDSPEC 


A 


10 


ASEGTAB 


4 




FLDSTART 


8 




ASORTAB 


14 




FLDSZE 


14 


18 


DBDDSECT 







FLDTAB 







DBDPFBYT 


20 




FLDX 


A 


01 


DBDPFRBN 


1C 




FLDZ 


A 


07 


DBDSORNM 







INDXFLAG 







DBDSORSZ 


8 


OC 


INDXTAB 







DBDSORTB 







INDXTBSZ 


4 


10 


DBDSPFSZ 


24 




ISRTF 


15 


02 


DBDSSD 


8 


20 


ISRTL 


15 


01 


DBDSSDBO 


8 




KEYFLD 


A 


40 


DBDSSFLG 


8 




LCHBGIN 





00 


DBDSSK 


8 


80 


LCHCODE 


8 




DBDSSN 


1C 




LCHEDBD 


8 




DBDSSOFF 


1E 




LCHEND 


10 


18 


DBDSSP 


8 


40 


LCHFLAG 


C 




DMAN 







LCHFLDNM 


10 




DMANBGIN 





00 


LCHIBYTE 


D 




DMANEND 


20 


28 


LCHIEN 


C 


20 


DMANSZE 


20 


28 


LCHILD 







DMNBLKSZ 


1A 




LCHLCB 


C 


01 


DMNDD1 







LCHLCF 


C 


02 


DMNDD2 


20 




LCHLP 


C 


08 


DMNDELTA 


E 




LCHNDX 


C 


04 


DMNDEV1 


8 




LCHPRDSG 


E 




DMNID 


C 




LCHPRI 


C 


40 


DMNLKL 


14 




LCHSEGNM 







DMNLRECL 


18 




LCHSZE 


10 


18 


DMNLSL 


10 




LCHTKPH 


C 


10 


DMNNSGA 


D 




LSTFLD 


A 


80 


DMNOBLKS 


1E 




LSTLCH 


C 


80 


DMNOLREC 


1C 




NOTWIN 


14 


01 


DMNSKL 


16 




PREACCCD 


20 


OF 


DMNSSL 


12 




PREACCES 


C 




EXDBDSZ 


8 


OC 


PREAP 


1A 




EXTDBD 







PREBGIN 





00 


EXTDBNM 







PREBLKSZ 


3E 




EXTRSVD 


8 




PREDBDNM 







FLDBGIN 





00 


PREDD1 


24 




FLDC 


A 


03 


PREDD2 


44 




FLDEND 


14 


18 


PREDELTA 


32 




FLDFLAG 


A 




PREDEV1 


2C 
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Cross Reference 





Hex 


Hex 




Hex 


Hex 


Name 


Offset 


Value 


Name 


Offset 


Value 


PREFIX 







SEGRESB1 


16 


40 


PREHD 


20 


06 


SEGRESB2 


16 


20 


PREHI 


20 


07 


SEGSEGNM 


C 




PREHSAM 


20 


05 


SEGSPARE 


16 


07 


PRE ID 


30 




SEGSZE10 


26 


28 


PREIMSC 


20 


80 


SEGSZE1 1 


2D 


30 


PREISAM1 


20 


02 


SEGTAB 







PRELKL 


38 




SEGTYPVL 


2C 


04 


PRELRECL 


3C 




SEGTYP64 


16 


10 


PRELSL 


34 




TSGTAB 


8 


80 


PRENDEX 


20 


08 








PRENODBD 


E 










PRENODSG 


D 










PRENOLCH 


18 










PRENOLEV 


8 










PRENOSEG 


A 










PRENSGA 


31 










PREOBLKS 


42 










PREOLREC 


40 










PRERNDM 


10 










PRESHIS 


20 


01 








PRESKL 


3A 










PRESSAM 


20 


04 








PRESSL 


36 










SEGBGIN 





00 








SEGCPRT 


2C 


08 








SEGDSNO 













SEGEND10 


26 


28 








SEGEND1 1 


2D 


30 








SEGFLDTB 


20 










SEGFLG1 


14 










SEGFLG2 


15 










SEGFLG3 


16 










SEGFLG4 


17 










SEGFREQ 


8 










SEGLCHLD 


18 










SEGLENG 


6 










SEGLENGV 


26 










SEGLEVEL 


3 










SEGNOFLD 


5 










SEGNOLCH 


4 










SEGPACIT 


2C 


01 








SEGPACKY 


2C 


02 








SEGPACOP 


2C 










SEGPACRT 


2D 










SEGPACRV 


28 










SEGPARPC 


2 










SEGPCBT 


16 


08 








SEGPHYCD 


1 










SEG.PRDT 


16 


80 












\ : 



-IT 

U 



5-90 DL/I DOS/ VS Logic Manual, Volume 1 



Licensed Material — Property of IBM 

JCB - Job Control Block 
DSECT Name: JCB 

The JCB is described as part of the general structure and description of the program specification block (PSB). 

Offsets 



(Dec) 


(Hex) 


Length 


Name 





(0) 





JCB 





(0) 


4 


JCBLEVTB 


4 


(4) 


4 


JCBLEVND 


8 


(8) 


4 


JCBSDB1 


12 


(C) 


4 


JCBSDBND 


16 


(10) 


14 


JCBTRACE 



Field/Flag Flag Code 
(Bit) 



Description 



Address of level table 

Address of end of level 
table+1 

Address of first SDB entry 
(root 1 s) 

Address of end of SDB's+1 

Prior 7 functions followed 
by return code 



DL/I Function Codes 



The following calls require a PCB and will be traced in JCBTRACE. 

Any calls not requiring a PCB is not put in the trace table. However, 

the function code appears in JCBPREVF or JCBPREVR. y 



C 






Name i 


Code (Hex) 






Meaning 


FUNCGU 


01 








'GU 1 Get Unique 


FUNCGHU 


01 








'GHU' Get Hold Unique 


FUNCGN 


03 








»GN' Get Next 


FUNCGHN 


03 








'GHN' Get Hold Next 


FUNCGNP 


04 








'GNP 1 Get Next Within Parent 


FUNCGHNP 


04 








'GHNP' Get Hold Next Within Parent 


FUNCDRTY 


20 








Delete/Replace 


FUNCREPL 


21 








'REPL 1 Replace 


FUNCDLET 


22 








'DLET' Delete 


FUNCISTY 


40 








' ISRT 1 Insert 


BtjNCISRT 


41 








Insert 


FUNCASRT 


42 








DL/I Utility Insert 


The following 


codes 


must have 


a PCB 


FUNCCHKP 


85 








' CHKP' Checkpoint 


FUNCPCBM 


90 








PCB Call for MPS 


The following 


codes 


do 


not 


require a PCB 


FUNCUNLD 


A0 








■UNLD' Unload Call 


FUNCGSCD 


A1 








'GSCD' Get SCD Call 


FUNCTERM 


A3 








'TERM' Termination Call 


DL/I Function 


Types 










FUNCGNTY 


80 








Get Next Type 


FUNCGUTY 


40 








Get Unique Type 


FUNCPATY 


20 








Parent Type 


FUNCHOTY 


08 








Hold Type 


30 (1E) 


1 




JCBPREVF Prior function 


31 (IF) 


1 




JCBPREVR Prior return code (: 



byte) 
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32 



(20) 



JCBLEV1C 



(24) 


2 


JCBSIZE 


(26) 


2 


JCBMKYL 


(28) 


4 


JCBRES1 



The following breakdown of JCBRES1 identifies its use 
by the CALL Analyzer 



40 



(28) 



■1 



41 



(29) 



JCBRES11 

JCBNSSA 

JCBQSSA 

JCBUQSSA 

JCBMSSA 

JCBMUSSA 

JCBQAUQ 

JCBLSSAQ 
JCBRES 1 2 
JCBCCALL 



Address of 1st level table 
entry in call; address of 
lowest level table entry 
successfully processed by 
retrieve; if hi-order byte 
= X'80' open error 

PCB + JCB size 

Maximum length of key 
feedback area 

Action-modules work area 



First flag byte 
"X'SO*" No SSAs 
"X^O"* Qualified SSAs 
"X^O 1 " Unqualified SSAs 
"X'lO'" Multiple SSAs 



"X'OS"' Multiple 
unqualified SSAs 

"X f 04 ,M Qualified SSA 
after an unqualified SSA 

"X I 02 ,M Last SSA qualified 

Second flag byte 

"X^"' Call has C command 
code 









O 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 

JCBTCALL 1 . 



Description 



42 



43 



(2A) 



(2B) 



61 (3D) 1 



JCBLV1C 

JCBRES13 
JCBALQD 1 . . 

JCBALD . 1 . 

JCBQSAD . . 1 , 

JCBRES14 
JCBFNSL 1 . . 



JCBQFLP 



JCBTSKF 



44 


(2C) 


4 


JCBRES2 


48 


(30) 


4 


JCBRES3 


52 


(34) 


4 


JCBRES4 


56 


(38) 


4 


JCBRES5 


60 


(3C) 


1 


JCBCode 
JCBTARPR 



JCBMLPOS 



JCBSGRET 



JCBRTIST 



JCBRDREQ 



JCBORGN 



.1 



JCBDEFDL . 1 



JCBRETDL . . 1 



JCBTAREX 



. .1 



. . 1 . 



. . . .1 . . 



1 



"X f 02 ,n Call has T command 
code 

"X'OI"' JCBLEVLC has been 
filled on this call 



Third flag byte 



"X'SO"' Any level 
qualified on data 

"X'40 fM Any level had D 
command code 

"X^O"' Qualified SSA 
follows D command code 

Fourth flag byte 

"X'SO"' Field is not in 
sub list 

"X^O*" Qualification 
field is in logical parent 

"X'OI 1 " This set has a key 
field 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Inter-module 

"X'SO 1 " DLZPOST update 
twin pointers only 

"X'40 M ' Re-insert of a 
deleted segment 

"X'^O 1 " (Not used in DL/I 
DOS/VS) 

"X'10 1 " Re-position for GN 
(no SSA) with multiple 
positioning 

"X'OS"* Retrieve keeping 
multiple positions 

M X , 04 ,n Used in 
positioning after not 
found 

"X l 02 fM Retrieve 
positioning for insert 

"X'OI 1 " DLZSKPG start at 
next occurence of segment 

Open switch and composite 
organization of all SDBs 
in the JCB 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



62 (3E) 1 



63 (3F) 1 



64 (40) 



65 (41) 1 



66 (42) 1 



67 (43) 1 



68 (44) 



JCBOPEN 1 



JCBORGRI . 1 . . .1 



JCBORGHD . . 1 



JCBORGHI 



JCBORGH2 



JCBORGSH 



JCBORGH1 



JCBORGHS 



JCBORGSS 



JCBRWKF 



JCBPRESF 



JCBLVT 



JCBDOPI 



JCBALLEX 



JCBFLS 



JCBLVC 



JCBPC 



JCBPOP 



JCBSTOR1 



. . .1 

1 . . . 

1.1 

.... . 1 . . 

1 . 

1 



. 1 . . . 



JCBNMFDB 1 . 



1 



Description 

"X^O"' Open done for all 
data sets in the JCB 

"X 1 44 '"Organization is 
root of index 

"X f 20 IM Organization is 
HDAM 

M X*10 ,M Organization is 
HIDAM 

"X'OS"' (Not used in DL/I 
DOS/VS) 

"X'OS"' Organization is 
SIMPLE HISAM 

"X f 04 ,M Organization is 
HISAM 

"X f 02 ,u Organization is 
HSAM 

"X'01 IM Organization is 
SIMPLE HSAM 

Retrieve ' s 
working- function 

Present coded function 
(see function codes DSECT 
for contents) 

Switches used in accessing 
segments via DLZSKPG 
routine (see routine 
prolog for details) 

M X f 08' M program isolation 
is to be done for 
associated PCB 

M X*04 f "' All sensitive 
segments have exclusive 
intent 

M X'02'" Field name found 
in FDB 

"X'01 '" At least one 
segment has field level 
sensitivity (used by call 
analyzer) 

Level of segment being 
searched for by retrieve 

Physical code of segment 
being searched for by 
retrieve 

Parent level for within 
parent calls 

Insert's use across I/O or 
calls 



'A^y 






V_y 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



C 



C 






72 (48) 



76 (4C) 



80 (50) 



84 (54) 



88 (58) 



92 (5C) 



JCBST0R2 



JCBST0R3 



JCBST0R4 



JCBST0R5 



JCBST0R6 



JCBST0R7 



96 


(60) 


4 


JCBST0R8 


100 


(64) 


4 


JCBWKRO 


104 


(68) 


4 


JCBWKR1 


108 


(6C) 


4 


JCBWKR2 


112 


(70) 


4 


JCBWKR3 


116 


(74) 


4 


JCBWKR4 


120 


(78) 


4 


JCBWKR5 


124 


(7C) 


4 


JCBWKR6 


128 


(80) 


4 


JCBWKR7 


132 


(84) 


4 


JCBWKR8 


136 


(88) 


4 


JCBWKR9 


140 


(8C) 


4 


JCBWKR10 


144 


(90) 


4 


JCBWKR1 1 


148 


(94) 


4 


JCBWKR12 


148 


(94) 


1 


JCBWK12A 



JCBNODEQ 1 . 



JCBRAP 



JCBPCHK 



.1 . . 



1 . 



JCBPPENQ ... 1 



Description 

Insert's use across I/O or 
calls 

Insert's use across I/O or 
calls 

Address of last segment 
read referenced by label 
BEGBUF in retrieve 

Current segment RBA 
referenced by label CURTTR 
in retrieve 

Retrieve 's use across I/O 
or calls 

Contains switches for 
position check phase 
referenced by label KEEPIT 
in retrieve 

Work area for retrieve 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 



Program isolation switches 
(retrieve only) 

"X'80"' No DEQ processing, 
all level table entries 
empty after CHKP, TERM, 
etc. 

"X'40"' Root anchor point 
enqueued (HDAM only) 

"X'20"' DLZPCHK calling 
DLZPOST enqueue not required 

"X'10"' DLZKDTL enqueued on 
physical parent searching 
on data field 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



Description 



JCBNTFD 



JCBSKPG 



JCBDLET 



JCBISRT 



149 


(95) 


3 


JCBWK12B 


152 


(98) 


4 


JGBWKR13 


156 


(9C) 


4 


JCBWKR14 


160 


(A0) 


4 


JCBWKR15 



End of JCB prefix - beginning of primary DSG 

JCBDSG 1 . 1 



164 



(A4) 



168 (A8) 2 

170 (AA) 1 

171 (AB) 1 



JCBDSOHI 



JCBDSOH2 



JCBDSOH1 



JCBDSOHS 



JCBDSOUP 



.1 . . 

. .1 . 
. ..1 



JCBDCBA 

JCBDMBNO 
JCBDCBNO 

JCBINDA 

JCBDSOLS 1 , 

JCBDSORI . 1 . . .1 , 

JCBDSOHD . . 1 . . . 



... 1 

1 . . . 

1. . 

. ■ 1 . 



"X f 08 f " DLZPCHK processing 
not found condition 

"X l 04 f " DLZDEQ should 
release all outstanding 
enqueues 

,, X'02 I " ENQ/DEQ "required 
in DLZPCHK due to delete 

"X'OV" Indicates DLZHIDA 
or DLZHDAM is accessing 
destination parent during 
a logical child insert 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 



"*" Start of each DSG 
section of JCB 

Address of the ACB 
extension for this 
data set (KSDS ACB 
extension if HISAM) 

DMB number for this DSG 

ACB number of ACB in DMB 
(KSDS ACB number if HISAM) 

JCB indicators 

». x i 80 t». This is last DSG 
in JCB 

"X , 44 ,M Data set group is 
root in index 

"X^O 1 " Data set group is 
HDAM 

"X'10 MI Data set group is 
HIDAM 

"x'OS 1 " (Not used in DL/I 
DOS/VS) 

,, X , 04 ,H Data set group is 
HISAM or simple HISAM 

"X , 02 ,M Data set group is 
HSAM or simple HSAM 

"X'OI*" Data set group is 
SHSAM or SHISAM 



( 



i 

V 






v_ 



c 



5-96 DL/I DOS/VS Logic Manual, Volumel 



Licensed Material — Property of IBM 






Offsets 



Field/Flag Flag Code 



(Dec) 


(Hex) 


Length 


Name 


(B 


it) 


Description 


172 


(AC) 


4 


JCBIRECA 








172 


(AC) 


4 


JCBHSADD 






HSAM I/O area after open 


172 


(AC) 


4 


JCBTTR 








176 


(BO) 


2 








HSAM block size 


178 


(B2) 


1 


JCBINDB 






JCB indicators 








JCBSETLR 


1 . . . 





"X'SO"' (Not used in DL/I 
DOS/VS) 








JCBGETR 


.1 . . 





"X^O 1 " (Not used in DL/I 
DOS/VS) 



JCBBATIS . . 1 . .... 



JCBNXTIS 



JCBSETL2 



"X^O"' (Not used in DL/I 
DOS/VS) 

"X'lO*" (Not used in DL/I 
DOS/VS) 

"X f 08 f " (Not used in DL/I 
DOS/VS) 



179 (B3) 1 



JCBGETGT 


.1.. "X'OV" 
DOS/VS) 


(Not used 


in 


DL/I 


JCBKEYSR 


..1. "X'C^"' 
DOS/VS) 


(Not used 


in 


DL/I 


JCBSTLIS 


...1 "X'OV" 
DOS/VS) 


(Not used 


in 


DL/I 


JCBINDC 


JCB indicators 






JCBBLDEL 1 . . . 


"X f 80 ,M 


This DSG 1 


)elc 


Dngs 



JCBHDULD . 1 



JCBCONST 



JCBPADKY 



JCBDUPS 



JCBSPOST 



JCBSWAP 



1 . . . 



1 



to delete/replace 

"X'40 1 " HD unload is 
running 

"X f 20 ,M Index data set 
contains constant 

"X'lO"' Search argument 
not equal to key length 

"X'08 ,M Non-unique 
secondary index keys 

,, X t 04"' (Not used in DL/I 
DOS/VS) 

"X'C^"' (Not used in DL/I 
DOS/VS) 

"X'OI 1 " HSAM wrong length 
record 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



180 (B4) 1 



JCBINDG 



JCBPREM 1 . 



JCBDATX 



JCBKEYX 



JCBXP 



JCBVL 



.1 . . . 



. . .1 









JCBRETD 


1. . 








JCBCOMMD 


1 . 








JCBRTNER 


1 


181 


(B5) 


1 


(3) 




184 


(B8) 


4 


JCBNOSAM 




188 


(BC) 


4 


JCBLROOT 
JCBDSEND 
JCBPRLEN 

JCBDSGLN 


11 

1.1. .1 . . 

. . .1 11 . . 



Description 

JCB indicators retrieve 
variable length flags 

"X'SO 1 " Segment prefix has 
been moved to work area 

"X^O"' Segment has been 
completely expanded 

"X^O"' (Not used in DL/I 
DOS/VS) 

"X'lO'" Force complete 
segment expansion 

"X'OS' " The variable 
length routine has been 
entered for segment 

"X , 04 ,M Data return call 

,, X , 02 f " Path return call 

"X'OV" (Not used in DL/I 
DOS/VS) 

Reserved 

Retrieve 1 s HSAM ID 

RBA of current root 



"JCBDSG-JCB" length of JCB 
prefix 

"JCBDSEND-JCBDSG" length 
of each DSG section of JCB 



C. 



y 






1 






\j 
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Cross Reference 














Hex 


Hex 




Hex 


Hex 


Name Off 


'set 


Value 


Name 


Offset 


Value 


JCB 







JCBLV1C 


29 


01 


JCBALD 


2A 


40 


JCBMKYL 


26 




JCBALLEX 


40 


04 


JCBMLPOS 


3C 


08 


JCBALQD 


2A 


80 


JCBMSSA 


28 


10 


JCBBATIS 


B2 


20 


JCBMUSSA 


28 


08 


JCBBLDEL 


B3 


80 


JCBNMFDB 


40 


02 


JCBCCALL 


29 


04 


JCBNODEQ 


94 


80 


JCBCode 


3C 




JCBNOSAM 


B8 




JCBCOMMD 


B4 


02 


JCBNSSA 


28 


80 


JCBCONST 


B3 


20 


JCBNTFD 


94 


08 


JCBDATX 


B4 


40 


JCBNXTIS 


B2 


10 


JCBDCBA 


A4 




JCBOPEN 


3D 


80 


JCBDCBNO 


AA 




JCBORGHD 


3D 


20 


JCBDEFDL 


3C 


40 


JCBORGHI 


3D 


10 


JCBDLET 


94 


02 


JCBORGHS 


3D 


02 


JCBDMBNO 


A8 




JCBORGH1 


3D 


04 


JCBDOPI 


40 


08 


JCBORGH2 


3D 


08 


JCBDSEND 


BC 


CO 


JCBORGN 


3D 




JCBDSG 


A0 


A4 


JCBORGRI 


3D 


44 


JCBDSGLN 


BC 


1C 


JCBORGSH 


3D 


05 


JCBDSOHD 


AB 


20 


JCBORGSS 


3D 


01 


JCBDSOHI 


AB 


10 


JCBPADKY 


B3 


10 


JCBDSOHS 


AB 


02 


JCBPC 


42 




JCBDSOH1 


AB 


04 


JCBPCHK 


94 


20 


JCBDSOH2 


AB 


08 


JCBPOP 


43 




JCBDSOLS 


AB 


80 


JCBPPENQ 


94 


10 


JCBDSORI 


AB 


44 


JCBPREM 


B4 


80 


JCBDSOUP 


AB 


01 


JCBPRESF 


3F 




JCBDUPS 


B3 


08 


JCBPREVF 


1E 




JCBFLS 


40 


01 


JCBPREVR 


1F 




JCBFNSL 


2B 


80 


JCBPRLEN 


BC 


A4 


JCBGETGT 


B2 


04 


JCBQAUQ 


28 


04 


JCBGETR 


B2 


40 


JCBQFLP 


2B 


40 


JCBHDULD 


B3 


40 


JCBQSAD 


2A 


20 


JCBHSADD 


AC 




JCBQSSA 


28 


40 


JCBINDA 


AB 




JCBRAP 


94 


40 


JCBINDB 


B2 




JCBRDREQ 


3C 


01 


JCBINDC 


B3 




JCBRES1 


28 




JCBINDG 


B4 




JCBRES11 


28 




JCBIRECA 


AC 




JCBRES12 


29 




JCBISRT 


94 


01 


JCBRES13 


2A 




JCBKEYSR 


B2 


02 


JCBRES14 


2B 




JCBKEYX 


B4 


20 


JCBRES2 


2C 




JCBLEVND 


4 




JCBRES3 


30 




JCBLEVTB 







JCBRES4 


34 




JCBLEV1C 


20 




JCBRES5 


38 




JCBLROOT 


BC 




JCBRETD 


B4 


04 


JCBLSSAQ 


28 


02 


JCBRETDL 


3C 


20 


JCBLVC 


41 




JCBRTIST 


3C 


02 


JCBLVT 


40 




JCBRTNER 


B4 


01 
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Cross Reference 






Hex 
Name Offset 


Hex 
Value 


JCBRWKF 


3E 




JCBSDBND 


C 




JCBSDB1 


8 




JCBSETLR 


B2 


80 


JCBSETL2 


B2 


08 


JCBSGRET 


3C 


04 


JCBSIZE 


24 




JCBSKPG 


94 


04 


JCBSPOST 


B3 


04 


JCBSTLIS 


B2 


01 


JCBST0R1 


44 




JCBST0R2 


48 




JCBST0R3 


4C 




JCBST0R4 


50 




JCBST0R5 


54 




JCBST0R6 


58 




JCBST0R7 


5C 




JCBST0R8 


60 




JCBSWAP 


B3 


02 


JCBTAREX 


3C 


10 


JCBTARPR 


3C 


80 


JCBTCALL 


29 


02 


JCBTRACE 


10 




JCBTSKF 


2B 


01 


JCBTTR 


AC 




JCBUQSSA 


28 


20 


JCBVL 


B4 


08 


JCBWKRO 


64 




JCBWKR1 


68 




JCBWKR10 


8C 




JCBWKR1 1 


90 




JCBWKR12 


94 




JCBWKR13 


98 




JCBWKR14 


9C 




JCBWKR15 


A0 




JCBWKR2 


6C 




JCBWKR3 


70 




JCBWKR4 


74 




JCBWKR5 


78 




JCBWKR6 


7C 




JGBWKR7 


80 




JCBWKR8 


84 




JCBWKR9 


88 




JCBWK12A 


94 




JCBWK12B 


95 




JCBXP 


B4 


10 









C 
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LEV - Level Table Entry 

DSECT Name: LEV 

The level table entry is described as part of the general structure and description of the program specification block 
(PSB). 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 


Description 


(0) 





LEV 








(0) 


1 


LEVLEV 






Level number 


1 (D 


1 


LEVPC 






Current physical segment 
code 



c 



Note: 

This portion of the level table, once set by 
RETRIEVE/INSERT is never cleared to zeros, only 
changed as needed. 



13 



(2) 



(D) 



LEVSEGOF 



4 


(4) 


4 


LEVTTR 


8 


(8) 


4 


LEVSDB 


2 


(C) 


1 


LEVF1 
LEVDLET 

LEVEMPTY 

LEVHELD 

LEVHIER 

LEVDATA 



LEVPLAST 

LEVPFRST 

LEVLAST 

LEVF2 
LEVCDB 



Segment's physical code 
offset from start of 
record (relative offset to 
segment from start of 
buffer) 

Relative byte address 

SDB entry address for 
current segment physical 
code in this entry 

Flags 

"X'SO"' Segment at this 
level newly deleted 

"X f 40 ,n This level table 
entry is empty 

"X^O 1 " Segment at this 
level in hold status 

"X'lO"' Segment at this 
level in hierarchic path 
(HISAM only) 

"X'OS'" Segment at this 
level moved to user 

f, X , 04 f " Segment is last of 
type for parent 

"X f 02 fM Segment is first 
of type for parent 

"X'OT" This is last level 
table for PCB 

Flags 

"X'SO"' Verify enqueues 
required in data base of 
current segment 
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Offsets 
(Dec) (Hex) Length 



Field/Flag Flag Code 



14 



(E) 



Name 
LEVNFPOS 

LEVEOD 

LEVCONT 

LEVSTOP 

LEVLSW 
LEVNDB 

LEVUSEOF 



(Bit) 



1 . . 



.1 . 



.1 



Description 

"X I 40 ,M Level has not 
found position for higher 
level 

"x'20 1 " EOD flag 

"X 1 10'" Reserved 

„ x i 08 «" The SSA at this 
level allows retrieve to 
obtain the next sequential 
segment 

"X'OA 1 " Used to determine 
the setting of LEVCONT by 
retrieve 

,, X , 02 ,M Used by retrieve 

"X'OI 1 " Verify enqueues 
required in destination 
parents data base 

Offset of segment in 
user's I/O area (PSTUSER) 






Note: 

Fields LEVNUPC through LEVSSA is a description of 
the SSA set by the Call Analyzer for this entry. 



16 



17 



(10) 


1 


LEVNUPC 


(11) 


1 


LEVF3 
LEVISRT 

LEVHOLD 



LEVPSUDO 



LEVDATA1 



LEVKEY1 



LEVNOCOV 



. . .1 



Physical code of requested 
segment 

Flags 

"X'SO 1 " Inserting at this 
level (set by retrieve) 

M X' 10'" At least one 
Boolean expression in 
range at this level 

"X'08 1 " This is pseudo SSA 
filling gap 

"X'OA 1 " At least one 
member qualified on data 

"X'02 1 " Every Boolean set 
has at least one key field 

"X'OI 1 " No conversion to 
be done for this segment 
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C 



Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



Description 



18 (12) 1 



20 (14) 1 



LEVF4 
LEVCOMMT 1 . . 

LEVCOMMC . 1 . 

LEVCOMMX . . 1 

LEVCOMMV 

LEVCOMMU 



19 (13) 1 LEVF5 



. .1 



LEVCOMMP . 1 , 



LEVCOMMF . . 1 



LEVCOMML 



LEVCOMMA 1 . 



LEVCOMMD 


1 . . 


LEVCOMMN 


1 . 


LEVCOMMQ 


1 


LEVMEMBR 






1 




.1 




. .1 . 




. . .1 


LEVMEMAC 


1 . . . 




1 . . 




1 . 




1 



Flags 



"X'SO 1 " T command code 
retrieve by direct address 

M X'40 ,M C command code 
qualifier is concatenated key 

"X^O"' X command code 

index maintenance internal call 

"X l 02 fM V command code 
maintain existing position 
at all levels 

"X'OI"' U command code 
maintain existing position 
this level 

Flags 

"X'SO"' Reserved 

"X^O 1 " (Not used in DL/I 
DOS/VS) 

"X^O 1 " F command code get 
first of segment type 

"X'10 1 " L command code get 
last of segment type 

"X'OS"' (Not used in DL/I 
DOS/VS) 

"X'OA"' D command code 
transfer data this level 

"X I 02 I " N command code do 
not replace this level 

"X'01 IM Q command code 
enqueue on segment 

Switch for each member 

"X f 80 IM Reserved 

"X'40 1 " Reserved 

"X^O"' Reserved 

"X 1 10' " Reserved 

"X'08 1 " This member in use 

M X'04 IM Reserved 

,, X I 02 I " Reserved 

"X f 01 ' " Reserved 
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Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 


Description 


21 


(15) 


3 








Reserved 


24 


(18) 


4 


LEVFLD 






Pointer to first FLD entry 
(SSA ungualified if 
zeroes) 


28 


(1C) 


4 


LEVNUSDB 






SSA's SDB address 


32 


(20) 


4 


LEVSSA 






SSA's left parenthesis ( 
position address 








LEVEND 


. . 1 . 


.1 . . 


"*" end of level table 
entry 








LEVLEN 


. .1 . 


.1 . . 


"LEVEND-LEVLEV" length of 



level table entry 












V. 



C 



J 
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€ 



Cross Reference 








Hex 
Name Offset 


Hex 
Value 


Hex Hex 
Name Offset Value 


LEV 







LEVSTOP D 04 


LEVCDB 


D 


80 


LEVTTR 4 


LEVCOMMA 


13 


08 


LEVUSEOF E 


LEVCOMMC 


12 


40 




LEVCOMMD 


13 


04 




LEVCOMMF 


13 


20 




LEVCOMML 


13 


10 




LEVCOMMN 


13 


02 




LEVCOMMP 


13 


40 




LEVCOMMQ 


13 


01 




LEVCOMMT 


12 


80 




LEVCOMMU 


12 


01 




LEVCOMMV 


12 


02 




LEVCOMMX 


12 


20 




LEVCONT 


D 


08 




LEVDATA 


C 


08 




LEVDATA1 


11 


04 




LEVDLET 


C 


80 




LEVEMPTY 


C 


40 




LEVEND 


20 


24 




LEVEOD 


D 


20 




LEVFLD 


18 






LEVF1 


C 






LEVF2 


D 






LEVF3 


11 






LEVF4 


12 






LEVF5 


13 






LEVHELD 


C 


20 




LEVHIER 


C 


10 




LEVHOLD 


11 


10 




LEVISRT 


11 


80 




LEVKEY1 


11 


02 




LEVLAST 


C 


01 




LEVLEN 


20 


24 




LEVLEV 









LEVLSW 


D 


02 




LEVMEMAC 


14 


08 




LEVMEMBR 


14 






LEVNDB 


D 


01 




LEVNFPOS 


D 


40 




LEVNOCOV 


11 


01 




LEVNUPC 


10 






LEVNUSDB 


1C 






LEVPC 


1 






LEVPFRST 


C 


02 




LEVPLAST 


C 


04 




LEVPSUDO 


11 


08 




LEVSDB 


8 






LEVSEGOF 


2 






LEVSSA 


20 
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MPC Partition Table Entry 

DSECT Name: MPCPT 

The Master Partition Controller (MPC) partition table is used to pass control information when processing batch 
partition application programs under multiple partition support (MPS). The MPC partition table resides in the 
transaction work area. There is one entry for every partition that is system generated. 



c 



Offsets 



(Dec) 


(Hex) 


Length 


Name 





(0) 





MPCPT 





(0) 


4 


MPCDBLIM 





(0) 


1 


MPCFLAG 
MPCPACT 

MPCERR 



Field/Flag Flag Code 
(Bit) 



MPCTSTP 



MPCPSTP 



MPCABWT 



1 


(D 


1 


MPCRC1 


2 


(2) 


1 


MPCRC2 


3 


(3) 


1 


MPCPID 


4 


(4) 


4 


MPCTCA 


8 


(8) 


4 


MPCSXECB 


2 


(C) 


4 


MPCAXECB 


6 
8 


(10) 
(12) 


2 
2 


MPCTSQE 





(14) 


1 


MPCFLAG 1 
MPCCNBPC 



Description 

MPCPT delimiter field 

MPC activity flags 

"X 1 80"' Partition active 
indicator 

"X'40 1 " Error condition 
encountered on DL/I 
scheduling call, or BPC 
attach failure 

"X' 20'" Stop transaction 
indicator 

"X'lO'" Stop partition 
indicator 

"X'OS 1 " Indicates that MPC 
should wait on the ABEND 
XECB in the event of a BPC 
ABEND 

"X , 04 ,M Not used 

,, X , 02 ,M Not used 

"X'01 *" Not used 

Error return code from 
TCAFCTR 

Error return code from 
TCADLTR 

XECB identifier generated 
by DLZMPC00 

Address of TCA 

Address of stop partition 
XECB (DLZXCB01) 

Address of partition ABEND 
XECB (DLZXCBN3) 

Reserved 

TSQ entry number 

MPC activity flags 

"X'SO"' Cancel BPC at stop 
transaction when MPS batch 
partition is not active 






ff 
{ .' 
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( 



( 



Offsets 



Field/Flag 



(Dec) (Hex) Length Name 



MPCNOVER 



MPCWNGCP 



MPCCKP 



MPCABND 



Flag Code 
(Bit) 

.1 



1 . 



.1 









MPCRST 


1 . . 


21 


(15) 


2 


MPCPIDHX 




23 


(17) 


1 


MPCRSTRC 
MPCRSTO 
MPC^GTI 
MPCRST2 


1 

1 . 


24 


(18) 


4 


MPCCPID 
MPCPTLN 
MPCNPTE 


. . .1 11 . . 
11 . . 



Description 

"X'40 ,M Checkpoint ID 
verification not possible 
during restart 

"X^O 1 " Wrong checkpoint 
ID used on restart 

"X'lO"' A combined 
checkpoint was issued 

M X , 08 ,M Job abnormally 
ended if combined 
checkpoint was not issued, 
then reinitialize TSQ 
entry 

»X I 04 ,M MPS restart 
processing on for this job 

Partition identifier 

MPS restart return code 
for batch partition 

"0" MPS restart normal 
function 

"1" CICS/VS journaling not 
active 

"2" Temporary storage 
processing not available 
or error 

Correct checkpoint ID to 
be used for restart 

"*-MPCPT" length of a 
partition table entry 

"12" number of partition 
table entries defined by 
DLZMPC00 
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Cross Reference 




Name 


Hex 
Offset 


Hex 
Value 


MPCABND 


14 


08 


MPCABWT 





08 


MPCAXECB 


C 




MPCCKP 


14 


10 


MPCCNBPC 


14 


80 


MPCCPID 


18 




MPCDELIM 







MPCERR 





40 


MPCFLAG 







MPCFLAG1 


14 




MPCNOVER 


14 


40 


MPCNPTE 


18 


OC 


MPCPACT 





80 


MPCPID 


3 




MPCPIDHX 


15 




MPCPSTP 





10 


MPCPT 







MPCPTLN 


18 


1C 


MPCRC1 


1 




MPCRC2 
MPCRS"T 


2 

14 


04 


MPCRSTRC 


17 




MPCRSTO 


17 


00 


MPCRST1 


17 


01 


MPCRST2 


17 


02 


MPCSXECB 


8 




MPCTCA 


4 




MPCTSQE 


12 




MPCTSTP 





20 


MPCWNGCP 


14 


20 



y 






V. 



r\ t 
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MPC - Start Partition DLZXCB02 

DSECT Name: MPCSPART 

The MPCSPART maps the start partition XECB parameter list. 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 


Description 


(0) 







MPCSPART 








(0) 


4 




MPCXECBS 






DLZXCB02 XECB 


4 (4) 


4 




MPCSPRO 






Address of start partition 
processing routine in 
DLZMPC00 


8 (8) 


4 




MPCPTABE 






Address of next partition 
table entry to be used for 
batch partition start 


Crass Reference 














Hex 
Name Offset 


Hex 
Value 








MPCPTABE 
MPCSPART 
MPCSPRO 
MPCXECBS 


8 

4 
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PATH - Path Header Control Block 

DSECT Name: DLZPATH 

This DSECT describes the fields for DL/I HLPI PATH header control block. 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





DLZPATH 







(0) 


4 









(0) 


4 


PATHSSAP 




4 


(4) 


4 


PATHPRCT 




8 


(8) 


1 


PATHFlag 
PATHCALL 


1 


9 


(9) 


1 


PATHTOTN 





10 



(A) 



PATHLEN 



Zross Reference 






Name 


Hex 
Offset 


Hex 
Value 


DLZPATH 









PATHCALL 




8 


80 


PATHFlag 




8 




PATHLEN 




A 


OC 


PATHPRCT 




4 




PATHSSAP 









PATHTOTN 




9 





11 



Description 



Full word alignment 

Address of path SSA 
appendage 

Previous GET path call 
DL/I parameter count 

Flag byte 

M X f 80 ,M Previous call was 
a GET path call 

Number of calls on 
previous GET path call 

Reserved 

"♦-PATHSSAP" length of 
path header control block 






A' 



( 



c 
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PCB - Program Communication Block 

DSECT Name: DBPCB 

The data management PCB (program communication block) is described as part of the general structure and 
description of the program specification block (PSB). 



Offsets 

(Dec) (Hex) Length 

(0) 

(0) 8 

8 (8) 2 



Field/Flag Flag Code 
Name (Bit) 

DBPCB 

DBPCBDBD 

DBPCBLEV 



Description 



DBD name 
Level feedback 



THE following fields are used for communication from PSBGEN 
to ACBGEN only. 



8 


(8) 


1 


DBPCBLE1 


9 


(9) 


1 


DBPCBLE2 
DBPCBGO 

DBPCBAg 


10 


(A) 


2 


DBPCBSTC 


12 


(C) 


4 


DBPCBPRO 


16 


(10) 


4 


DBPCBJCB 
DBPCBTKW 


20 


(14) 


8 


DBPCBSFD 


28 


(1C) 


4 


DBPCBLKY 



28 



32 



(1C) 



(20) 



DBPCBMKL 



DBPCBMUL 



DBPCBNSS 



32 


(20) 


2 


DBPCBSSN 


34 


(22) 


2 


DBPCBSOF 


36 


(24) 


256 


DBPCBKFD 



Flag byte 

Flag byte 

"X'02 ,M GO or GOP PROCOPT 
for PCB 

"X'OV" Program isolation 
suppressed for this PCB 

Status codes 

DL/I processing options 

JCB address 

"X'SO"' Another task 
waiting for resource owned 
by this task 

Segment name feedback 

Maximum length of key 
feedback area 

Current length of the key 
feedback area 

"X'OI 1 " Positioning is 
multiple (for ACBGEN only) 

Number of sensitive 
segments in the PCB (after 
ACBGEN only) 

Number of sensitive 
segments (for ACBGEN only) 

Offset to the first 
segment (for ACBGEN only) 

Key feedback area 



f*) 
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Cross Reference 








Hex 


Hex 


Name Offset 


Value 


DBPCB 







DBPCBAE 


9 


01 


DBPCBDBD 







DBPCBGO 


9 


02 


DBPCBJCB 


10 




DBPCBKFD 


24 




DBPCBLEV 


8 




DBPCBLE1 


8 




DBPCBLE2 


9 




DBPCBLKY 


1C 




DBPCBMKL 


1C 




DBPCBMUL 


1C 


01 


DBPCBNSS 


20 




DBPCBPRO 


C 




DBPCBSFD 


14 




DBPCBSOF 


22 




DBPCBSSN 


20 




DBPCBSTC 


A 




DBPCBTKW 


10 


80 



t 



4f 

(1 
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PDCA - Problem Determination Control Area 
DSECT Name: PDCA 



c 



c 



^^ 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 


(0) 





PDCA 




(0) 


4 


PDCACPAC 




4 (4) 


4 


PDCAXPRM 





The PRCA (Problem Determination Control Area) is used to hold miscellaneous data used in problem 
determination. 



Description 



Variable length segment 
compression routine list 
pointer 

Secondary index 
suppression routine list 
pointer 

Field exit routine list 
pointer 

PDCA flag byte 

"X'80 ,M Stop saving 
messages 

Abend code 

Online formatted dump ECB 



12 

13 
16 



(8) 
(C) 

(D) 
(10) 



3 

4 



PDCAFERT 

PDCAFlag 
PDCASTOP 

PDCAMSG 
PDCADecB 



MPS TERMINATION CLEANUP ROUTINE ADDRESSES 



20 



24 



28 



(14) 



(18) 



(1C) 



PDCBPCNT 



PDCBPCAT 



PDCSYSTT 









PDCAEND 


Cross Reference 










Hex 


Hex 


Name 


Off 


'set 


Value 


PDCA 









PDCACPAC 









PDCADecB 




10 




PDCAEND 




1C 


20 


PDCAFERT 




8 




PDCAFlag 




C 




PDCAMSG 




D 




PDCASTOP 




C 


80 


PDCAXPRM 




4 




PDCBPCAT 




18 




PDCBPCNT 




14 




PDCSYSTT 




1C 





Address of DLZBPC00 normal 
termination MPS cleanup 
routine in DLZMPC00 

Address of DLZBPC00 
abnormal termination MPS 
cleanup routine in 
DLZMPC00 

Address of system abnormal 
termination MPS cleanup 
routine in DLZMPC00 

"*" end of problem 
determination control area 
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PDIR - PSB Directory 

DSECT Name: DLZPDIR 

The PSB directory contains an entry for every PSB (program specification block) that may run under DL/I control. 
The PSB directory is part of the DL/I nucleus and is created during DL/I system definition for online processing. 
The start address of the PSB directory (SCDDLIPS), the entry length (SCDDLIPL), and the number of entries 
(SCDDLIPN) are contained in the SCD (system contents directory). 






Offsets 



Field/Flag Flag Code 



(Dec) 


(Hex) 


Length 


Name 


(Bit) 





(0) 





DLZPDIR 
PDIR 







(0) 


8 


PDIRSYM 




8 


(8) 


4 


PDIRADDR 




12 


(C) 


4 


PDIRPSBL 




16 


(10) 


2 


PDIRZWA 




18 


(12) 


1 


PDIRCpde 
PDIRUPD 


1 



19 



(13) 



PDIREXC 

PDIRPLI 
PDIRDUPL 

PDIRMPLI 

PDIRDELT 

PDIRTFAL 

PDIROPTC 
PDIRNOSC 

PDIRSCHD 

PDIRREM 

PDIRNTNT 



.1 



. .1 



Description 

PSB directory entry dummy 
section 

"*" label used to 
establish address 

PSB execution name 
converted from name 
supplied during PSBGEN 

PSB address 

Storage required for PSB 

Storage required for index 
workarea 

PSB code byte 

"X'SO 1 " This PSB is update 
sensitive 

"X'40 1 " This PSB requires 
DMB exclusive control 

"X'20 ,M This PSB for PL/I 

"X 1 10 IM This PSB is 
duplicate 

"X , 08 ,M PSB host language 
is PL/I 

"X l 02 fn This PSB is delete 
sensitive 

"X'OI 1 " PSDB-SDB chaining 
error detected during 
on-line task termination 

PSB scheduling codes 

"X ! 80 fM Do not schedule 
this PSB 

"X'40 f " This PSB is 
scheduled 

"X^O 1 " PSB is on remote 
system 

"XMO"' This PSB waiting 
for intent 



( 






c 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 







PDIRBPLI 






PDIRXPSB 






PDIRBAD 


20 (14) 


4 


PDIRSILA 


24 (18) 


4 


PDIREMOT 
PDIRLEN 


Cross Reference 








Hex 


Hex 


Name Off 


:set 


Value 


DLZPDIR 







PDIR 





00 


PDIRADDR 


8 




PDIRBAD 


13 


01 


PDIRBPLI 


13 


08 


PDIRCode 


12 




PDIRDELT 


12 


02 


PDIRDUPL 


12 


10 


PDIREMOT 


18 




PDIREXC 


12 


40 


PDIRLEN 


18 


1C 


PDIRMPLI 


12 


08 


PDIRNOSC 


13 


80 


PDIRNTNT 


13 


10 


PDIROPTC 


13 




PDIRPLI 


12 


20 


PDIRPSBL 


C 




PDIRREM 


13 


20 


PDIRSCHD 


13 


40 


PDIRSILA 


14 




PDIRSYM 







PDIRTFAL 


12 


01 


PDIRUPD 


12 


80 


PDIRXPSB 


13 


04 


PDIRZWA 


10 





. .1 



1 11 . 



Description 

"X'OS"' Reserved 

,, X , 04 ,M Remote PST + local 
component 

"X'OI"' PSB initialization 
failed 

Address of PSB segment 
intent list 

Remote PDIR (RPDIR) entry 
address 

"*-PDIR" PSB directory entry 
Length 
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PPST - PST Prefix 

DSECT Name: DLZPPST 

The PST prefix contains data required for user task scheduling in a CICS/VS online environment. It also contains a 
section used by buffer handler for enqueue/dequeue information and another section used for online segment intent 
scheduling. The PST prefix is logically a part of the PST (partition specification table). However, in order to 
operate more efficiently in a virtual storage environment, ALL PST prefixes (one for batch) are organized so that 
they are physically located in one contiguous area. Field SCDPPSTS points to the PST prefix and field SCDPPSTW 
indicates the number of PPSTs. 



„/"" 
O 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





DLZPPST 
PPST 







(0) 


1 


PPSTCF 




1 


(1) 


1 


PPSTCB 




2 


(2) 


1 


PPSTECB 




3 


(3) 


1 


PPSTCW 




4 


(4) 


1 


PPSTIND 

PPSTIO 
PPSTSI 


1 

.1 



PPSTTC 



PPSTBF 



















PPSTMPS 


. . . 








PPSTACT 










PPSTMSDL 


. . . 








PPSTA 




5 


(5) 


3 


PPSTCA 




8 


(8) 


1 


PPSTID 




9 


(9) 


3 


PPSTTCA 





.1 



Description 

PST prefix dummy section 
»*" 

Prefix chain forward 
pointer 

Prefix chain backward 
pointer 

Post/wait byte of PST ECB 

PST prefix program isolation 
wait chain 

Task schedule and dispatch 
indicators 

"X'SO 1 " Waiting for I/O 

"x^O 1 " Can not schedule 
due to segment intent 
conflict 

"X^O 1 " Can not schedule 
task count limit exceeded 

"X f 10'" Task enqueued by 
buffer handler 

"X'OSp Indicates MPS task 

"X , 04 l " This is current 
task 

"X , 02 IM Scheduled by BPC 

"X'01 ,M Task scheduled 

Address of PST 

DL/I task ID (PPST number) 

Task's TCA address 






v y 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 

Section used by buffer handler for ENQ/DEQ. The following 
fields must be contiguous and their order must not be changed. 



Description 



four 



12 



16 



(C) 



(10) 



20 (14) 



24 (18) 



28 (1C) 1 



PPSTEXCI 



PPSTPECI 



PPSTSUPO 



PPSTEXTQ 



PPSTIND1 
PPSTEXQ 1 



29 (1D) 3 

PPSTEND . . 1 

Section used for online segment intent scheduling 

12 (C) 4 PPSTPDIR 
16 (10) 1 PPSTTSKP 

PPSTLEN . . 1 



Enqueue/dequeue pointers for 
existing control interval 
Byte 0-1 = buffer number 
Byte 2-3 = PPST number of 

task next in 

chain 

Enqueue/dequeue pointers for 
pending control interval 
Byte 0-1 = buffer number 
Byte 2-3 = PPST number of 

task next in 

chain 

Enqueue/dequeue pointers for 
subpool space byte 0-1 = 
Byte 0-1 = subpool number 
Byte 2-3 = PPST number of 

task next in 

chain 

Enqueue/dequeue pointers for 
data set extension queue 
Byte 0-1 = not used 
Byte 2-3 = PPST number of 

task next in 

chain 

Flag byte 

M X f 80 IM This task was on 
the control interval 
extension queue 

Reserved 

"*" end of prefix DSECT 



Task's PDIR entry address 

Task dispatching priority 

"*-PPST" Length of the PST 
prefix 
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Crass Reference 








Hex 


Hex 


Name Offset 


Value 


DLZPPST 







PPST 





00 


PPSTA 


4 


01 


PPSTACT 


4 


04 


PPSTBF 


4 


10 


PPSTCA 


5 




PPSTCB 


1 




PPSTCF 







PPSTCW 


3 




PPSTECB 


2 




PPSTEND 


1D 


20 


PPSTEXCI 


C 




PPSTEXQ 


1C 


80 


PPSTEXTQ 


18 




PPSTID 


8 




PPSTIND 


4 




PPSTIND1 


1C 




PPSTIO 


4 


80 


PPSTLEN 


10 


20 


PPSTMPS 


4 


08 


PPSTMSDL 


4 


*)2 


PPSTPDIR 


C 




PPSTPECI 


10 




PPSTSI 


4 


40 


PPSTSUPO 


14 




PPSTTC 


4 


20 


PPSTTCA 


9 




PPSTTSKP 


10 








l v 



J 
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PSB - PSB Prefix 

DSECTName: PSB 

The PSB prefix is described as part of the general structure and description of the program specification block 
(PSB). 



Offsets 



(Dec) 


(Hex) 


Length 


Name 





(0) 





PSB 





(0) 


1 


PSBVMID 
PSBV1 1 


1 


(1) 


3 


PSBIOASZ 



Field/Flag Flag Code 
(Bit) 



(0) 



(4) 



8 (8) 



12 



(C) 



16 (10) 4 

20 (14) 4 

24 (18) 4 

28 (1C) 1 

29 (1D) 1 



PSBFRTA 



PSBXIOWK 

PSBSEGWK 

PSBPST 

PSBXPCB 
PSBNDXWK 

PSBIOAWK 
PSBINDEX 
PSBCode 
PSBNPLI 

PSBPLI 

PSBFLS 

PSBLOGDB 



30 


(1E) 


2 


PSBSIZE 


32 


(20) 


2 


PSBTPOFF 


34 


(22) 


2 


PSBDBOFF 


36 


(24) 


256 


PSBLIST 



.1 . 



Description 



DOS DL/I version ID 

"X'OI 1 " Version 1 . 1 or later 

Length of I/O workarea 
(PSBIOAWK) 

Field exit routine address 
if no entries in table, 
low order 3-bytes = 
(used only during 
initialization) 

Address of index I/O work 
area or user's version of 
a segment built by retrieve 

Address of variable length 
segment work area 

PST address if PSB is 
scheduled or active 

Address of index PCB 

Address of index 
maintenance work area or 
pointer to the field exit 
parameter list 

Address of I/O work area 

(Not used in DL/I DOS/VS) 

PSB flags 

"X'20 1 " PSB is for 
non-PL/I language 

"X'lO"' PL/I is source 
language 

"X'OI 1 " PSB contains field 
sensitive segment 

"X I 02 IM PSB retrieves a 
logical data base 

PSB size 

(Not used in DL/I DOS/VS) 

Offset from the PSBLIST to 
first DB PCB 

Beginning of the PCB list 
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Cross Reference 






Hex 
Name Offset 


Hex 
Value 


PSB 







PSBCode 


1D 




PSBDBOFF 


22 




PSBFLS 


1D 


01 


PSBFRTA 







PSBINDEX 


1C 




PSBIOASZ 


1 




PSBIOAWK 


18 




PSBLIST 


24 




PSBLOGDB 


1D 


02 


PSBNDXWK 


14 




PSBNPLI 


1D 


20 


PSBPLI 


1D 


10 


PSBPST 


C 




PSBSEGWK 


8 




PSBSIZE 


1E 




PSBTPOFF 


20 




PSBVMID 







PSBV1 1 





01 


PSBXIOWK 


4 




PSBXPCB 


10 





''<_>- 



c 



5-120 DL/I DOS/VS Logic Manual, Volumel 



Licensed Material — Property of IBM 



C 






PSBSQLIO - PSB SQL/DS I/O Area 

DSECT Name: DLZPSBIO 

This DSECT is used to create the DL/I SQL/DS tables: PSBBASICDATA, PSBSEGMENTDATA, and 
PSBFIELDDATA. 



Description 

Date 'yyyymmdd 1 of 
creation 

Century 

Year 

Month 

Day 

Userid of creator 

Date 'yyyymmdd' of change 

Time 'hhmmssff of change 

Hours 

Labels for making hour 

Printable 

Minutes 

Labels for making minutes 

Printable 

Seconds 

Labels for making seconds 

Printable 

Fraction of seconds 

Labels for making fraction 

Printable 

Userid of modifier 



Name of PSB 
Cobol or PL/I 

Number of PCB in hierarchy 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





PSBSQLIO 







(0) 


8 


CREADATE 







(0) 


2 


CREACENT 




2 


(2) 


2 


CREAYEAR 




4 


(4) 


2 


CREAMON 




6 


(6) 


2 


CREADAY 




8 


(8) 


8 


CREAUSER 




16 


(10) 


8 


CHANDATE 




24 


(18) 


8 


CHANTIME 




24 


(18) 


2 


CHANHOUR 




24 


(18) 




CHANHOU1 




25 


(19) 




CHANHOU2 




26 


(1A) 


2 


CHANMIN 




26 


(1A) 




CHANMIN1 




27 


(1B) 




CHANMIN2 




28 


(1C) 


2 


CHANSEC 




28 


(1C) 




CHANSEC1 




29 


(1D) 




CHANSEC2 




30 


(1E) 


2 


CHANFRAC 




30 


(1E) 




CHANFRA1 




31 


(1F) 




CHANFRA2 




32 


(20) 


8 


CHANUSER 





This section contains information unique to the 
PSBBASICDATA table. 



40 
47 



(28) 
(2F) 



PSBName 
LANGUAGE 



This section contains information unique to the 
PSBPCBDATA table. 



48 



(30) 



PCBNUMBR 
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52 



(34) 



DBTYPE 



54 


(36) 


7 


DBDName 


61 


(3D) 


4 


PCBPROCO 


68 


(44) 


4 


KEYLEN 


72 


(48) 


8 


POSITING 


80 


(50) 


7 


PROSEQ 


88 


(58) 


2 


PROSEIND 
PSBPCBLN 



This section contains information unique to the 
PSBSEGMENTDATA table. 



This section contains information unique to the 
PSBFIELDDATA table. 



64 


(40) 


4 


FLDNUMBR 


68 


(44) 


8 


FLDName 


76 


(4C) 


4 


BYTES 


80 


(50) 


2 


BYTES IND 


82 


(52) 


8 


POSName 


90 


(5A) 


2 


POSNAIND 


92 


(5C) 


4 


POSITION 


96 


(60) 


2 


POSITIND 


98 


(62) 


1 


DATATYPE 


100 


(64) 


2 


DATATIND 


102 


(66) 


8 


RTNName 


110 


(6E) 


2 


RTNIND 


112 


(70) 


1 


FLDTYPE 


113 


(71) 


3 


REPLACE 


116 


(74) 


2 


REPLAIND 



1 . 1.11 



52 


(34) 


4 


SEGNUMBR 




56 


(38) 


8 


SEGMName 




64 


(40) 


8 


PARENTNM 




72 


(48) 


2 


PARENIND 




74 


(4A) 


4 


SEGPROCO 
PSBSEGLN 


... 1 111 



'DB' for upward 
compatibility with IMS 

Name of DBD 

Processing option 

Longest concatenated key 

Single or multiple 
positioning 

Name of the secondary index 

SQL indicator variable 

"♦-language" length of the 
PSBPCB table to clear 



Segment number 

Name of sensitive segment 

Name of parent of segment 

SQL indicator variable 

Processing option 

"*-PCBNUMBR" length of the 
PSBSEGMENT table to clear 



Field number 

Name of sensitive field 

Length of the field 

SQL indicator variable 

Name of the previously 
defined field 

SQL indicator variable 

Starting position of field 

SQL indicator variable 

Type of data in field 

SQL indicator variable 

Name of field exit routine 

SQL indicator variable 

Sensitive or virtual 

Can field be modified? 

SQL indicator variable 






1.. 



C 
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118 



(76) 



374 


(176) 


2 


CVALIND 


376 


(178) 


4 


IValue 


380 


(17C) 


2 


IVALIND 


382 


(17E) 


8 


DValue 


390 


(186) 


2 


DVALIND 


392 


(188) 


8 


FValue 


400 


(190) 


2 


FVALIND 
PSBFLDLN 



CValue Initial character value 

CVALLEN .111 .11. "CValue" length of 

character value 

CValueS .111 1 . . . "CValue+2" the character 

value 



SQL indicator variable 
Initial integer value 
SQL indicator variable 
Initial decimal value 
SQL indicator variable 
Initial float value 
SQL indicator variable 



*-PCBNUMBR" length of the 
PSBFIELD table to clear 

PSBIOLtfN "*-PSBSQLI0" length of 

PSBFieldDATA 
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Cross Reference 










Hex Hex 
Name Offset Value 


Name 


Hex 
Offset 


Hex 
Value 


BYTES 


4C 


POSNAME 


52 




BYTES IND 


50 


PROSE IND 


58 




CHANDATE 


10 


PROSEQ 


50 




CHANFRAC 


1E 


PSBFLDLN 


190 


0162 


CHANFRA1 


1E 


PSBIOLEN 


190 


0192 


CHANFRA2 


1F 


PSBNAME 


28 




CHANHOUR 


18 


PSBPCBLN 


58 


2B 


CHANH0U1 


18 


PSBSEGLN 


4A 


1E 


CHANH0U2 


19 


PSBSQLIO 







CHANMIN 


1A 


REPLACE 


71 




CHANMIN1 


1A 


REPLAIND 


74 




CHANMIN2 


1B 


RTNIND 


6E 




CHANSEC 


1C 


RTNNANE 


66 




CHANSEC1 


1C 


SEGMNAME 


38 




CHANSEC2 


1D 


SEGNUMBR 


34 




CHANTIME 


18 


SEGPROCO 


4A 




CHANUSER 


20 








CREACENT 











CREADATE 











CREADAY 


6 








CREAMON 


4 








CREAUSER 


8 








CREAYEAR 


2 








CVALIND 


176 








CVALLEN 


76 76 








CVALUE 


76 








CVALUES 


76 78 








DATATIND 


64 








DATATYPE 


62 








DBDNAME 


36 








DBTYPE 


34 








DVALIND 


186 








DVALUE 


17E 








FLDNAME 


44 








FLDNUMBR 


40 








FLDTYPE 


70 








FVALIND 


190 








FVALUE 


188 








IVALIND 


17C 








IVALUE 


178 








KEYLEN 


44 








LANGUAGE 


2F 








PARENIND 


48 








PARENTNM 


40 








PCBNUMBR 


30 








PCBPROCO 


3D 








POSITIND 


60 








POSITING 


48 








POSITION 


5C 








POSNAIND 


5A 









i. 



y 






c 
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PSDB - Physical Segment Description Block 

DSECT Name: DMBPSDB 

The PSDB is described as part of the general structure and description of the data management block (DMB). 



Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 






(0) 





DMBPSDB 





(0) 


1 


DMBSC 


1 


(D 


1 


DMBPSC 


2 


(2) 


1 


DMBLEV 


3 


(3) 


1 


DMBXNULL 


4 


(4) 


1 


\ 

DMBPPFD 


5 


(5) 


1 


DMBPPBK 


6 


(6) 


1 


DMBDCB 


7 


(7) 


1 


DMBPTR 
DMBCTR 
DMBPTFD 

DMBPTBK 






8 (8) 2 
10 (A) 2 
12 (C) 1 



DMBPP 
DMBLTFD 

DMBLTBK 

DMBLP 

DMBHIER 

DMBPRSZ 
DMBDL 
DMBISRT 
DMBXPROT 



.1 . ... 



1 . 



Description 

Segment code 

"X'OV" Root segment code 

Parent's segment code 

Segment level 

(Not used in DL/I DOS/VS) 

Pointer number in parent 
to first occurrence of 
segment for parent 

Pointer number in parent 
to last occurrence of 
segment for parent 

ACB number 

Prefix flags 

"X'SO"' Counter present 

"X^O' " Segment has 
physical twin forward 
pointer 

"X'20 1 " Segment has 
physical twin backward 
pointer 

"X' 10'" Segment has 
physical parent pointer 

"X'OS"' Segment has 
logical twin forward 
pointer 

"X l 04 in Segment has 
logical twin backward 
pointer 

,, X l 02 ,n Segment has 
logical parent pointer 

"X'OI'"' (Not used in DL/I 
DOS/VS) 

Prefix length of segment 

Data length of segment 

Insert rules 

"X'SO"' System data in 
index is protected 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



Description 



13 



(D) 



14 (E) 



16 (10) 1 



16 (10) 



DMBIHERE ..11 

DMBTLST . . 1 . 

DMBIFST ... 1 

DMBNOTW .... . 1 . . 

DMBIRL 11 

DMBIRP 1 . 

DMBIRV .... ... 1 

DMBDLT 

DMBDRLC ..11 

DMBDRPC . . 1 . 

DMBDRVC ... 1 

DMBRRL 11 

DMBRRP 1 . 

DMBRRV 1 

DMBDRL 

DMBDRP 

DMBDRV 

DMBCKL 

DMBUSE 

DMBEX 1 

DMBUP . 1 . . 
DMBFDBA 



"X'SO 1 " For no key field, 
insert at current position 

"X^O 1 " For no key field, 
insert after existing segment 

"X'lO"' For no key field, 
insert before existing Segment 

"X'04"' No twin allowed 

"X I 03 i " Insert rule is logical 

"X'02 111 Insert rule is physical 

"X'OI 1 " Insert rule is virtual 

Delete/replace rules 

"X^O* " (Not used in DL/I 
DOS/VS) 

"X^O"' (Not used in DL/I 
DOS/VS) 

"X'lO'" (Not used in DL/I 
DOS/VS) 

"X'OC*" Replace rule is 
logical 

"X'OS"' Replace rule is 
physical 

"X'Oa"' Replace rule is 
virtual 

,, X , 03'" Delete rule is logical 

M X'02 ,M Delete rule is 
physical 

"X'01 ' " Delete rule is 
virtual 

Concatenated key length of 
parent of this segment 



"X'SO"' This PSDB in use 
exclusively 

"X^O 1 " This PSDB in use 
for update bits 2-7 contain 
a count of read only users 

Address of FDBs for this 
segment 



v_y 



.m 



c 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



( 



20 (14) 



24 (18) 1 



DMBFSDB 

DMBVLDFG 

DMBPI 1 

DMBCPT 1 . . 

DMBVLS 1 . 

DMBCPTKY 1 

DMBCPTIT ' 



25 (19) 3 DMBSCTAB 
28 (1C) 2 DMBSGMN 

30 (IE) 2 DMBSGMX 

32 (20) 1 DMBFlag 

DMBPAIR . 1 . . 1 

DMBLPEX . 1 . . . 
DMBLCEX . . 1 . . 



32 (20) 



DMBNXEX 


. . *1 




DMBXDEX 





.1 


DMBLST 






DMBPSDBN 


. .1 . 


.1 


DMBPLEN 


. .1 . 


.1 



Description 

Address of first SDB for 
this segment 

Variable length data flag 

"X'SO 1 " Program isolation 
should be done for this 
segment 

"X'OS' " Segment has 
compression routine 

"X l 04 l " Segment is 
variable length 

"X I 02 IM Compression 
routine has key expand 
routine 

"X'01 '" Compression 
routine has initialization 
processing 

Address of segment 
compaction table 

For variable length 
segment minimum length of 
segment 

For variable length 
segment maximum length of 
segment 

Secondary list flags 

"X^S 1 " (Not used in DL/I 
DOS/VS) 

"X'40 1 " A logical parent 
exists (segment is a 
logical child) 

"X'20' " One or more 
logical children exist 
(segment is a logical parent 
parent) 

"X'10 111 One or more indexes 
exist 

,, X , 04 I " An indexed segment 
exists 

Address of secondary list 
for this segment 

"* lf end of one PSDB entry 

"DMBPSDBN-DMBSC" length of 
each PSDB entry 
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Crass Reference 



Name 


Hex 
Offset 


Hex 
Value 


Name 


Hex 
Offset 


Hex 
Value 


DMBGKL 


E 




DMBRRV 


D 


04 


DMBCPT 


18 


08 


DMBSC 







DMBCPTIT 


18 


01 


DMBSCTAB 


19 




DMBCPTKY 


18 


02 


DMBSGMN 


1C 




DMBCTR 


7 


80 


DMBSGMX 


1E 




DMBDCB 


6 




DMBUP 


10 


40 


DMBDL 


A 




DMBUSE 


10 




DMBDLT 


D 




DMBVLDFG 


18 




DMBDRL 


D 


03 


DMBVLS 


18 


04 


DMBDRLC 


D 


30 


DMBXDEX 


20 


04 


DMBDRP 


D 


02 


DMBXNULL 


3 




DMBDRPC 


D 


20 


DMBXPROT 


C 


80 


DMB^RV 
DMBDRVC 


D 
D 


01 
10 








DMBEX 


10 


80 








DMBFDBA 


10 










DMBFLAG 


20 










DMBFSDB 


14 










DMBHIER 


7 


01 








DMBIFST 


C 


10 








DMBIHERE 


C 


30 








DMBILST 


C 


20 








DMBIRL 


C 


03 








DMBIRP 


C 


02 








DMBIRV 


C 


01 








DMBISRT 


C 










DMBLCEX 


20 


20 








DMBLEV 


2 










DMBLP 


7 


02 








DMBLPEX 


20 


40 








DMBLST 


20 










DMBLTBK 


7 


04 








DMBLTFD 


7 


08 








DMBNOTW 


C 


04 








DMBNXEX 


20 


10 








DMBPAIR 


20 


48 








DMBPI 


18 


80 








DMBPLEN 


20 


24 








DMBPP 


7 


10 








DMBPPBK 


5 










DMBPPFD 


4 










DMBPRSZ 


8 










DMBPSC 


1 










DMBPSDB 













DMBPSDBN 


20 


24 








DMBPTBK 


7 


20 








DMBPTFD 


7 


40 








DMBPTR 


7 










DMBRRL 


D 


OC 








DMBRRP 


D 


08 









/f 



4#"~>, 
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PSIL - PSB Segment Intent List 

DSECT Name: DLZPSIL 

The PSB segment intent list is pointed to from the PSB directory and is a list of all the DMBs which may be used by 
that PSB (program). 



Description 

PSB segment intent list entry 

DMB name for this list 
entry as produced by the 
block builder utility 

"PSILDMBN" DDIR address of 
corresponding DMB resolved 
during initialization 

"PSILDIRA+4" DMB number of 
this DMB 

Segment intent descriptor byte 

"X'SO 1 " PSB requires data 
base exclusive control 

"X'40 ,,f PSB is update 
sensitive to this data base 

M X'20 ,M Buffer pool space 
request for this KSDS 

"X'lO"' PSB references are 
all 'GO' 

M X'08 IM Data base is not 
referenced 

"X'OA 1 " No translate for PI 

Length of segment intent list 

Start of segment intent bits 



Each segment in the DMB pointed to by an intent list entry 
is described by two-bit fields beginning at PSILSEGD. There 
is a list entry for each DMB referenced in the associated 
PSB. The two bits represent the PSBs sensitivity to each 
PSDB and have the following meanings: 

00 - PSB not sensitive to the segment 

01 - PSB read only sensitive 

10 - PSB is update sensitive 

11 - PSB req exclusive ctl(HISAM root insert) 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





DLZPSIL 




1 


(0) 


8 


PSILDMBN 







(0) 


4 


PSILDIRA 




4 


(4) 


2 


PSILDIRN 




8 


(8) 


1 


PSILNTNT 
PSILDBEX 

PSILDBUP 


1 

.1 



PSILBFRI 



PSILGOPO 









PSILNREF 








PSILNOPI 


9 


(9) 


1 


PSILLNGH 


10 


(A) 


Var 


PSILSEGD 



PSILNS 



PSILRO 






1111 1111 "X'FF"' Mask used to test 
4 segments for no 
sensitivity 

1.1. 1.1. "X'AA"' Mask used to test 
4 segments for update 
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The bits are allocated to segments in the following manner: 

Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) Description JT ~~\ 

End of PSB intent list ^-^ 

indicator 







PSILEND 


Cross Reference 








Hex 


Hex 


Name Offset 


Value 


DLZPSIL 







PSILBFRI 


8 


20 


PSILDBEX 


8 


80 


PSILDBUP 


8 


40 


PSILDIRA 





00 


PSILDIRN 





04 


PSILDMBN 







PSILEND 
PSILGCPO 






8 


10 


PSILLNGH 


9 




PSILNOPI 


8 


04 


PSILNREF 


8 


08 


PSILNS 


A 


FF 


PSILNTNT 


8 




PSILRO 


A 


AA 


PSILSEGD 


A 





4T~ 

[f 



V 



\J 
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PST - Partition Specification Table 

DSECTName: DLZPST 

One partition specification table (PST) exists for each task in an online or batch processing partition. All DL/I 
resources allocated to the task can be located through the PST. The PST also contains pointers to the task I/O area 
and any segments currently associated with the task. 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag Flag Code 
Name (Bit) 





(0) 





DLZPST 

PST 





(0) 


4 


PSTPREAD 


4 


(4) 


4 


PSTDLIW0 


8 


(8) 


4 


PSTDLIW1 


12 


(C) 


4 


PSTDLIW2 


16 


(10) 


4 


PSTDLIW3 


20 


(14) 


4 


PSTDLIW4 


24 


(18) 


4 


PSTDLIW5 


28 


(1C) 


4 


PSTDLIW6 


32 


(20) 


4 


PSTDLIW7 


36 


(24) 


4 


PSTDLIW8 


40 


(28) 


4 


PSTDLIW9 


44 


(2C) 


4 


PSTDLIWA 


48 


(30) 


4 


PSTDLIWB 


52 


(34) 


4 


PSTDLIWC 


56 


(38) 


4 


PSTDLIWD 


60 


(3C) 


4 


PSTDLIWE 


64 


(40) 


4 


PSTDLIWF 



USER CALL PROCESSING SECTION 
68 (44) 1 PSTCodel 

PSTSCALL 
PSTINTNT 

PSTSCHED 



1 . . 
.1 



Description 

PST dummy section 

"*" start of PST 

Address of this PST's 
prefix 

Action-modules work area 
HD unload (DLZURGU0) 
return address for retrieve 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 

Action-modules work area 



"X f 80 IM PST for system call 

"X'40 1 " Cannot schedule 
intent not satisfied 

"X'10 1 " OK to complete 
scheduling 
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Note: 

If PSTINTNT and PSTSCHED are both set, DL/I Backout is in control. 



68 (44) 



72 (48) 1 



PSTPRVWT 



PSTOLTW 



PSTLOGIP 



PSTSCDAD 



PSTABIND 



PSTERMSP 1 . 









PSTSABND 








PSTTABND 


72 


(48) 


4 


PSTIQPRM 


76 


(4C) 


1 


PSTMI 


76 


(4C) 


4 


PSTUSER 


80 


(50) 


4 


PSTSEGL 


84 


(54) 


4 


PSTSEG 


88 


(58) 


4 


PSTPSB 


USER TASK STATISTICS 




92 


(5C) 


4 


PSTACCT 


92 


(5C) 


4 


PSTDGU 


96 


(60) 


4 


PSTDGN 


100 


(64) 


4 


PSTDGNP 


104 


(68) 


4 


PSTDGHU 


108 


(6C) 


4 


PSTDGHN 


112 


(70) 


4 


PSTDGHNP 



116 (74) 



120 (78) 



124 (7C) 



128 (80) 



PSTDISRT 



PSTDDLET 



PSTDREPL 



PSTDCHKP 



1 . 



.1 



. .1 



"X f 08"' Logger private 
wait indicator 

,, X , 04* " Another task 
waiting for resource owned 
by this task 

"X , 02 ,n Log I/O in 
progress 

Address of addressable 
portion of SCD 

Task/system ABEND 
indicator 

If X f 80" f PUT error message 
indicator 

"X ! 20 IM System ABEND 
indicator bit 

"X 1 10' " Task ABEND 
indicator bit 

Address of callers 
parameter list 

Return segment indicator 

Address of user's I/O area 

Retrieved segment length 

Retrieved segment address 

PDIR entry address 



Number of 

Number of 

Number of 

Number of 

Number of 

Number of 
issued 

Number of 
issued 

Number of 
issued 

Number of 
issued 

Number of 
issued 



GU calls issued 
GN calls issued 
GNP calls issued 
GHU calls issued 
GHN calls issued 
GHNP calls 

ISRT calls 

DLET calls 

REPL calls 

CHKP calls 






V. 
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PSTSTLN 

Action module section 

132 (84) 4 PSTDBPCB 
136 (88) 1 PSTFNCTN 

Equates for buffer handler function codes 

PSTBKLCT 

PSTBYLCT 



1 . 1 . . 



PSTBYALT 

PSTPGUSR 
PSTWRITE 
PSTSTLEQ 
PSTERASE 
PSTGETNX 
PSTSTLBG 

PSTPUTKY 
PSTMSPUT 



.1 



PSTGBSPC 


11 


PSTFBSPC 


1 . . 


PSTBFMPT 


1 . . 


PSTBFALT 


1.1 



11 



111 



1 . . 1 



1 . 1 



1.11 



11 



11.1 



11 1 



"*-PSTACCT" length of user 
call statistics 



Address of current PCB 
Function codes 



M X'01 IM Locate relative 
block number 

M X , 02 ,n If HD, locate 
relative byte number. If 
HISAM or HIDAM index, read 
a record by RBA from a 
KSDS. If HISAM, read a 
record by RBA from an 
ESDS 

"X'OS 1 " Get buffer space 

M X , 04 ,M Free buffer space 

"X'04 !M Mark buffers empty 

"X'05 1 " If HD; mark a 
buffer containing data 
altered if HISAM or HIDAM 
index; write a record by 
RBA to a KSDS if HISAM 
write a record by RBA to 
an ESDS 

"X'Oe"' Locate a relative 
byte number and mark 
buffer altered 

"X'01' u Purge all buffers 
altered by a task 

"X'OS"' Write new record 
to HISAM ESDS 

"X^"' Read a record by 
key from a KSDS 

"X'OA"' Erase a record in 
a KSDS 

"X'OB"' Read the next 
record in a KSDS 

"X'OC"' Read the record 
containing the first root 
in a KSDS 

"X'OD"' Insert a record by 
key into a KSDS 

M X'0E IM insert record (s) 
sequentially into a 
KSDS 
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Equates for OPEN / CLOSE function codes 

PSTOCDMB 

PSTOCPCB 

PSTOCALL 
PSTOCCLS 
PSTOCOPN 
PSTOCDCB 



PSTOCBAD 1 
Equates for Space Management function codes 



1 



PSTGTSPC 

PSTFRSPC 

PSTBTMPF 
PSTGTRAP 



. . .1 



1 . 



1 . 



. 1 . . . 



PSTOCLD . . 1 

PSTOCDSG .1 



. . .1 



11 



1 



Equates for Index Maintenance function codes 

PSTXMDLT 1.1 

PSTXMRPL 1.1. ... 1 

PSTXMISR 1.1. ... 1. 

PSTXMUNL 1.1. ..11 



"X f 01 f " Close DMB address of 
DMB in R2 

"X , 02 IM Close PCB address of 
PCB in R2 

"X'04'" Close all DMB ' s 

"X'OO"' Close call bit 4=0 

,, X'08 M ' Open call bit 4=1 

"X ! 10 f " Open/close the dmb 
in pstdcbnm dsg address in 
PSTDSGA 

"X^O'" Open for load 

"X^O"' Open the DSG in 
PSTDSGA 

"X'SO"' Open unsuccessful 



"X'SO* Backout in control 

"X'01 '" et space for 
segment (R5 contains 
pointer to PSDB) 

"X'02 ,M Free space for 
segment (R5 contains 
pointer to PSDB) 

"X'OS 1 " Do bit map update 

"X'04 ,M Get space close to 
rap in PSTBYTNM 



"X'AO 1 " Perform index 
maintenance for segment to 
be deleted 

"X'AI"' Perform index 
maintenance for segment to 



be replaced 



,, X'A2 ,M Perform index 
maintenance for segment to 
be inserted 

"X'AS 1 " Perform index 
maintenance for segment to 
be unloaded 



C 



f "\ 

(■ ) 






c 
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Equates for Program Isolation function codes 

PSTQENQ 

PSTQVER 
PSTQDEQ 
PSTQPUR 



137 (89) 1 PSTRTCDE 

Equates for buffer handler return codes 

PSTCLOK 
PSTGTDS 

PSTIOERR 
PSTRDERR 

PSTNOSPC 
PSTBDCAL 
PSTNOTFD 

PSTNWBLK 

PSTNPLSP 



C 



PSTWROSI 



PSTENDDA 



PSTBYEND 



PSTEOD 



PSTINLD 



. . .1 



.1 



11 



11 .1 



"X f 00 IM Enqueue (queueing 
facility) 

"X'OV Verify (queueing 
facility) 

"X'OS 1 " Dequeue (queueing 
facility) 

"X'OC" Purge (queueing 
facility) 

Return codes 



"v i nn* " 



'X'OO 



No error occurred 



"X'OV" RBN is beyond the 
end of the data set 

"X'OS' " I/O error 

"X'OS"' Permanent read 
error 

,, X , 0C ,M No space for adds 

"X 1 10 ,M Illegal call 



"X'14 f " No record found 
(retrieve by key) 

M X' 18' " New block was 
created in the buffer pool 

"X'lC" Insufficient space 
in the buffer pool 

"X'20 1 " Size of requested 
buffer exceeds the size of 
buffers in any subpool 

"X'24'" End of data set no 
record returned 

"X'28 ,M Key or RBA higher 
than the highest key or 
rba in the data set 

"X^C" End of data set 
reached on a request 
issued by open 

"X^*" Invalid request 
during data set loading 
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Space Management return codes 



PSTFRBLK 



PSTBTMPF 



11 



PSTNOBFA ..11 ... 1 



11 



"X'30'" Block not used due 
to distributed free space 
parm 

"X^V" Unsuccessful mark 
buffer alter request 

"X f 03 ,n Bit map update 
required 



y 



Equates for Program Isolation return codes 




PSTQRWR 





PSTQROOP 


1 


PSTQRDDL 


1 . 


PSTQRBDC 


1 . . 


PSTQRNSE 


. . .1 . . . 



138 (8A) 



140 (8C) 



PSTPISIU .1 



PSTPIPIU 1 



PSTOFFST 



PSTDSGA 



"X'OI 1 " Wait was required 

"X'02 1 " Other owners present 

"X'OA 1 " Terminated due to 
deadlock 

"X'OS"' Terminated due to 
bad call 

"X 1 10'" Terminated 
insufficient storage 

"X f 40 ,M Secondary index 
updated 

"X'80'" Primary index 
updated 

Offset to PSTDATA from 
start of buffer 

Address of DSG portion of 
the JCB 



V. 






/f 
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C 



C 



PSTBLKNM, PSTDMBNM, and PSTACBNM must be in this 
order and contiguous for the buffer handler 



144 



(90) 



PSTBLKNM 
PSTWABUF 



148 


(94) 


2 


PSTDMBNM 


150 


(96) 


1 


PSTACBNM 


151 


(97) 


1 




152 


(98) 


4 


PSTBYTNM 



15,6 (9C) 4 PSTDATA 
160 (A0) 4 PSTBUFFA 

Buffer Handler and Space Management section 

164 (A4) 4 PSTBFUSE 



168 (A8) 



172 (AC) 



176 (BO) 



PSTSUIN 



PSTPREAR 



PSTSUBNM 



178 (B2) 2 PSTSWI 

PSTHISES 1 

PSTHDWIP 

PSTCIOAF 

PSTSMRQ 



. .1 



180 



(B4) 



PSTPBRQC 1111 1111 



PSTPOSEL 



PSTNOERR .1 



181 


(B5) 


1 


182 


(B6) 


2 


184 


(B8) 


4 



PSTSAVRE 



Relative block number 

M X'80 ,U Indicator that 
buffer is being used as a 
workarea and is not 
associated with an RBA 

DMB number 

ACB number 

Reserved 

RBA or relative record 
number hi-order byte 
contains x'80' if request 
is for HISAM ESDS 

Address of requested data 

Address of buffer prefix 



Address of the buffer 
prefix to be used 

Address of the subpool 
information table to be used 

Beginning address of the 
buffer prefix area for the 
subpool information table used 

Subpool number used during 
this call 

Work space 

M X'80' " HISAM ESDS is 
being processed 

"X'OS' " HD write in 
progress 

M X f 04 f " Control interval 
in overflow area full 

,, X'02 ,M Request made to 
the buffer handler by 
space management 

"X'FF' " Purge buffer 
request completed 

Count for position of use 
chain element 

"X^O 1 " No error message 

Reserved 

Reserved 

Work area used by buffer 
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handler when processing a request 



The following fields are used by DL/I OPEN/CLOSE (DLZDLOCO) 
and Space Management (DLZDHDSO) for VSAM catalog parameter 
list when processing an out-of -space condition for HID AM data base . 



PSTCTGPL 

PSTCPLN 
PSTCTGNM 



1.11 1 . . . "PSTSAVRE" area used as 

the VSAM catalog parameter 
list (CTGPL) by DLZGGSPO 
and DLZDLOCO to do locate 

. . 1 . 1 . . . "40" length of CTGPL block 

.1 " 1 " number of CTGFL 

entries 



This area is used by DLZDCI00 for SHOWCAT and GETVCE for FBA support . 



224 



(E0) 



PSTSWKAR 

PSTSDATA 

PSTRBAL 
PSTVSL 

PSTSWKL 

PSTVLSR 

PSTSPL 

PSTGVPL 

PSTGVWKL 

PSTRETRE(8) 



1.11 1 . 



11 



111 , 

.1 . . 
.11 , 



.1 



1111 1.1 



11.1 .1 



111 . 11 , 



11 .1 , 



"PSTSAVRE" SHOWCAT work 
area used by space 
management DLZDCI00 

"PSTSWKAR+22" location of 
needed data returned by 
SHOWCAT 

"4" RBA data length 

"6" volume serial number 
length 

"64" length of SHOWCAT 
work area 

"PSTSWKAR+66" volume 
serial number save area 

"PSTSWKAR+28" SHOWCAT 
parameter list 

"PSTSWKAR+52" GETVCE 
parameter list 

"52" length of GETVCE 
workarea 

Buffer handler subroutine 
linkage register (R14) 
save area when processing 
a request 



C 
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The following fields are used by OPEN/CLOSE (DLZDLOCO) and 
Space Management for VSAM field parameter list when 
processing an out-of-space condition for HID AM data base . 



( 



Buffer Handler statistics 



PSTCTGFL 

PSTCTGWK 

PSTCTGL1 

PSTCTGL2 

PSTCTGRT 

PSTCFLN 
PSTCWKLN 

PSTCDATL 



256 


(100) 


1 


PSTNUMRO 


257 


(101) 


1 


PSTNUMWT 


258 


(102) 


1 


PSTCLRWT 
PSTIWAIT 

PSTEXPAD 


259 


(103) 


1 




260 


(104) 


4 


PSTTSKID 



111 "PSTRETRE" area used as 

the VSAM field parameter 
list (ctgfl) by DLZGGSP0 
and DLZDLOCO to do locate 

1111 1 . . . "PSTRETRE+24" VSAM catalog 
workarea 

1111 1... "PSTRETRE+24 M catalog 
workarea length 1 

1111 1.11 "PSTRETRE+27" catalog 
workarea length 2 

1111 11.. "PSTRETRE+28" VSAM catalog 
return area for high-RBA 

... 1 1 . . . "24" length of CTGFL block 

.... 1 . . . "8" length of catalog 
workarea 

T-. "4" data length for high-RBA 



Number of blocks read on 
this call 

Number of writes issued on 
this call 

Buffer handler switch 

"X f 80 f " IWAIT issued 
during this call 

"X^O"' Expad done for 
this I/O operation 

Reserved 

Hashed task ID high-order 
byte binary date low-order 
3 bytes assigned in 
ascending sequence 



The following fields are used as save areas so that the DMB 

ECB can be posted if the task is cancelled while waiting for I/O completion . 



264 


(108) 


4 


PSTXPSV1 


268 


(10C) 


4 


PSTXPSV2 


272 


(110) 


4 


PSTXPSV3 


276 


(114) 


4 


PSTUIB 


PST WORK AREAS 






280 


(118) 


4 


PSTWRK1 


284 


die) 


4 


PSTWRK2 



User VSAM savearea address 
EXCPAD return address 
EXCPAD parm list address 
Address of UIB 

Work words for 

buffer handler (DLZDBH00) 
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288 


(120) 


4 


PSTWRK3 


292 


(124) 


4 


PSTWRK4 


296 


(128) 


4 


PSTWRKT1 


300 


(12C) 


4 


PSTWRKT2 


304 


(130) 


4 


PSTWRKT3 


308 


(134) 


4 


PSTWRKT4 


312 


(138) 


4 


PSTWRKT5 



and 

data base logger 

work space preserved 

across 

calls 

to the 

buffer handler 



The hi-order byte of PSTWRKT4 is used to pass the following 
function codes to index maintenance : 



316 


(13C) 


4 


PSTWRKD1 


320 


(140) 


4 


PSTWRKD2 


324 


(144) 


4 


PSTWRKD3 


328 


(148) 


4 


PSTWRKD4 


332 


(14C) 


4 


PSTWRKD5 


336 


(150) 


4 


PSTWRKD6 


340 


(154) 


4 


PSTWRKD7 


344 


(158) 


4 


PSTCURWA 


348 


(15C) 


4 


PSTDLTWA 


352 


(160) 


4 


PSTDLR0M(21 



Data base log section 

436 (1B4) 

440 (1B8) 



PSTLOGWA 



PSTLOGQ 



Data base log use of PSTWRK1 



PSTWRK1 



,1 



,11 
.2. 

. .1 



PSTDBLFC 



"X'OA"' Re-insert index 

"X'03 1 " Secondary indices only 

"X'02 1 " Primary indices only 

"X'OV" Both primary and 
secondary indices 

Work space for use 

by 

delete/replace 

field storage manager 

retrieve 



Load/insert and by buffer 
purge 

Current delete work area 

First delete work area 
address 

Retrieve 's save and 
maintenance work area 
(online only) CMF hook 
work area at task 
termination 



Address of work area 
for log O/P 

Address of reuse Q QCB 
in pool 



Physical SDB address 
if new block - low-order 
2 bytes is call count 
high-order byte used for 
function code 

"PSTWRK1" 



V 






y 



i 



y 
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Data base log function codes 






DBLNDXC 1 
DBLCMC 

DBLNTCR 
DBLLGDLT 

DBLPHYI 
DBLPHYD 
DBLPHYR 
DBLOOPS 

DBLLASTC 

DBLFSE1 

DBLFSE2 

DBLPHYRO 

DBLNEWBL 



.1 . 



Data base log use of PSTWRK2 - PSTWRK4 

chain maintenance - old copy of chain pointer (4 bytes) 

insert/delete - offset and new FSE'S (6 or 12 bytes) 



444 (1BC) 



PSTRAEND 



448 (1C0) 4 

Partition / Task information 

452 (1C4) 8 PSTPCPGM 

460 (1CC) 8 PSTPCPSB 
468 (1D4) 1 PSTPCT1 

PSTBATCH 1 . . . . 



PSTLODU 

PSTLODUH 

PSTHISMR 

PSTUST 
PSTUDR 



.1 . . 
. .1 . 

. . .1 



.1 



"X'80'" Index maintenance call 

"X'OO"' Bits 1-3=0 chain 
maintenance call 

"X'70 llf Counter maintenance 

"X^O"' Delete byte 
maintenance 

"XMO"' Insert 

"X^O"' Physical delete 

"X' 10 ,M Replace 

"X'OA*" No data end of 
user call 

"X'OS"' Last change for 
this user call 

"X'OO"' Bit 5=0 one FSE 
(if bits 1 or 2 on) 

,, X'04 ln Two FS's (if bits 
1 or 2 on) 

"X , 02 in Old copy of a 
replace 

"X'OI"' New block log call 



End of root addressable 
area used by space manager 

Reserved 



Application program name 
if batch UDR, ULR or ULU 
DBDNAME 

PSB name 

Partition/task option 

h x i 8 q... psT is in batch 
partition 

"X^O"' Load utility 

"X'20' " Load HDAM DB 

"X'lO"' HISAM data base 
recovery in progress 

"X'OS"' Statistics utility 

"X'OA 1 " Data base recovery 
utility 
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469 (1D5) 



PSTULU 
PSTUSM 
PSTPCT2 

PSTXCONM 1 . 
PSTXPRTM . 1 



"X'02' " Data base 
load/unload utility 



"X'01 '" Security 
maintenance utility 

PGM options/info overlaid 
on every call to batch 
program request handler 

"X^O"' Exclude console 
message 

"X^O"' Exclude printer 
message 

"X , 04 IM User CKPT call 
successful 

,, X , 02 ,M Application 
program using HLPI 

"X'CM 1 " User pgm is PL/I 

Error message codes 

Error message code byte one 

Error message code byte two 

Variable error message data 

Work area for HD 
randomizing module 

Variable error message data 

Error routine indicator 

"X'SO"' Issue dump after 
error message put 

"X^O"' Issue cancel after 
error message put 

Area to build user 
parameter list and also 
register save area for MPS 
start and stop calls 

The following labels can be used to address fields in the CALL parameter list 

PSTCCALL "PSTLIPRM" current call 

PSTCPCB "PSTLIPRM+4" current PCB 

address 









PSTCHKP 


.1 . . 








PSTHLPI 


. .1 . 








PSTPLI 


. . .1 


470 


(1D6) 


2 


PSTERCOD 




470 


(1D6) 


1 


PSTERCD1 




471 


(1D7) 


1 


PSTERCD2 




472 


(1D8) 


7 


PSTERDT1 




479 


(1DF) 


8 


PSTCNVB 




479 


(1DF) 


8 


PSTERDT2 




487 


(1E7) 


1 


PSTERIND 
PSTDUMPI 1 . . . 

PSTCANLI . 1 . . 


. . . . 


488 


(1E8) 


72 


PSTLIPRM 





560 (230) 
568 (238) 



PSTCIO 



PSTCSSA 



PSTPLIPR 



PSTNORO 



M PSTLIPRM+8" current I/O 
area address 

"PSTLIPRM+12" current SSA 
address start if call is 
qualified 

PL/I region STXIT 
processor 

Number owned resources 



C 



4 



/f~ 



o 
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( 



( 



72 


(23C) 


1 


PSTQLEV 
PSTQLRO 
PSTQLUPD 
PSTQLEXC 


. . . .1 . . 
. . . 1 . . . 


72 


(23C) 


4 


PSTRRDF 




76 


(240) 


4 


PSTRRDL 




80 


(244) 


4 


PSTRPSTA 




84 


(248) 


12 


PSTSAVTR 





Field level descriptor block control fields 

596 (254) 4 PSTFLD 



600 


(258) 


4 


PSTFLDN 




604 


(25C) 


4 


PSTFLDE 
PSTFLDAL 


1 


608 


(260) 


4 


PSTFLDC 





Partial reorganization control fields 

612 (264) 4 PSTPRTGT 



616 


(268) 


4 


PSTDELTA 




620 


(26C) 


1 


PSTOPEN 
PSTOPEN1 


.1 


621 


(26D) 


3 






624 


(270) 


4 


PSTCRRBA 




628 


(274) 


4 







Queue request level 

"X'OO"' Read only level 

"X'OA" 1 Update level 

"X'OS"' Exclusive level 

Pointer to first RRD 

Pointer to last RRD 

Remote PST address (RPST) 

Trace save area used only 
if output = CICS/VS 

Start of field level 
descriptor block entries 

Next available fid entry 

FLD area end address+1 

"128" initial FLD area 
length 

Current FLD entry for this 
level (retrieve) 



Pointer to partial 
reorganization target table 

Partial reorganization 

HDAM RBA block number change 

Flag byte 

"X'40 ,M Open for partial 
reorganization 

Reserved 

RBA of current root insert 

Reserved 
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Register save area 

Registers are saved Register 14 

640 (280) 72 PSTSV1 

712 (2C8) 72 

784 (310) 72 

856 (358) 72 

928 (3A0) 72 

1000 (3E8) 72 

1072 (430) 72 



Register 12 



PSTSV2 
PSTSV3 
PSTSV4 
PSTSV5 
PSTSV6 
PSTSV7 
PSTLNGTH 



Seven register save 

areas 

required 

for 

processing 

DL/I user 

calls 

"*-PST" length of PST 
(See the DL/I DOS/VS 
Diagnostic Guide for 
information on the save 
areas) 



C 



v y 



I'tf 



5-144 DL/I DOS/VS Logic Manual, Volumel 



Licensed Material — Property of IBM 



( 



C 



Crass Reference 














Hex 


Hex 




Hex 


Hex 


Name Offset 


Value 


Name 


Offset 


Value 


DBLCMC 


1B8 


00 


PSTCTGPL 


B8 


B8 


DBLFSE1 


1B8 


00 


PSTCTGRT 


E0 


FC 


DBLFSE2 


1B8 


04 


PSTCTGWK 


E0 


F8 


DBLLASTC 


1B8 


08 


PSTCURWA 


158 




DBLLGDLT 


1B8 


60 


PSTCWKLN 


E0 


08 


DBLNDXC 


1B8 


80 


PSTDATA 


9C 




DBLNEWBL 


1B8 


01 


PSTDBLFC 


1B8 


0118 


DBLNTCR 


1B8 


70 


PSTDBPCB 


84 




DBLOOPS 


1B8 


0A 


PSTDCHKP 


80 




DBLPHYD 


1B8 


20 


PSTDDLET 


78 




DBLPHYI 


1B8 


40 


PSTDELTA 


268 




DBLPHYR 


1B8 


10 


PSTDGHN 


6C 




DBLPHYRO 


1B8 


02 


PSTDGHNP 


70 




DLZPST 







PSTDGHU 


68 




PST 





00 


PSTDGN 


60 




PSTABIND 


48 




PSTDGNP 


64 




PSTACBNM 


96 




PSTDGU 


5C 




PSTACCT 


5C 




PSTDISRT 


74 




PSTBATCH 


1D4 


80 


PSTDLIWA 


2C 




PSTBDCAL 


89 


10 


PSTDLIWB 


30 




PSTBFALT 


88 


05 


PSTDLIWC 


34 




PSTBFMPT 


88 


04 


PSTDLIWD 


38 




PSTBFUSE 


A4 




PSTDLIWE 


3C 




PSTBKLCT 


88 


01 


PSTDLIWF 


40 




PSTBLKNM 


90 




PSTDLIW0 


4 




PSTBTMPF 


88 


03 


PSTDLIW1 


8 




PSTBUFFA 


A0 




PSTDLIW2 


C 




PSTBYALT 


88 


06 


PSTDLIW3 


10 




PSTBYEND 


89 


28 


PSTDLIW4 


14 




PSTBYLCT 


88 


02 


PSTDLIW5 


18 




PSTBYTNM 


98 




PSTDLIW6 


1C 




PSTCANLI 


1E7 


40 


PSTDLIW7 


20 




PSTCCALL 


1E8 


01E8 


PSTDLIW8 


24 




PSTCDATL 


E0 


04 


PSTDLIW9 


28 




PSTCFLN 


E0 


18 


PSTDLR0M 


160 




PSTCHKP 


1D5 


04 


PSTDLTWA 


15C 




PSTCIO 


1E8 


01F0 


PSTDMBNM 


94 




PSTCIOAF 


B2 


04 


PSTDREPL 


7C 




PSTCLOK 


89 


00 


PSTDSGA 


8C 




PSTCLRWT 


102 




PSTDUMPI 


1E7 


80 


PSTCNVB 


1DF 




PSTENDDA 


89 


24 


PSTCodel 


44 




PSTEOD 


89 


2C 


PSTCPCB 


1E8 


01 EC 


PSTERASE 


88 


0A 


PSTCPLN 


B8 


28 


PSTERCD1 


1D6 




PSTCRRBA 


270 




PSTERCD2 


1D7 




PSTCSSA 


1E8 


01F4 


PSTERCOD 


1D6 




PSTCTGFL 


E0 


E0 


PSTERDT1 


1D8 




PSTCTGL1 


E0 


F8 


PSTERDT2 


1DF 




PSTCTGL2 


E0 


FB 


PSTERIND 


1E7 




PSTCTGNM 


B8 


01 


PSTERMSP 


48 


80 
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Cross Reference 














Hex 


Hex 




Hex 


Hex 


Name Offset 


Value 


Name 


Offset 


Value 


PSTEXPAD 


102 


40 


PSTOCLD 


88 


20 


PSTFBSPC 


88 


04 


PSTOCOPN 


88 


08 


PSTFLD 


254 




PSTOCPCB 


88 


02 


PSTFLDAL 


25C 


80 


PSTOFFST 


8A 




PSTFLDC 


260 




PSTOLTW 


44 


04 


PSTFLDE 


25C 




PSTOPEN 


26C 




PSTFLDN 


258 




PSTOPEN1 


26C 


40 


PSTFNCTN 


88 




PSTPBRQC 


B2 


FF 


PSTFRBLK 


89 


30 


PSTPCPGM 


1C4 




PSTFRSPC 


88 


02 


PSTPCPSB 


1CC 




PSTGBSPC 


88 


03 


PSTPCT1 


1D4 




PSTGETNX 


88 


0B 


PSTPCT2 


1D5 




PSTGTDS 


89 


04 


PSTPGUSR 


88 


07 


PSTGTRAP 


88 


04 


PSTPIPIU 


89 


80 


PSTGTSPC 


88 


01 


PSTPISIU 


89 


40 


PSTGVPL 


B8 


EC 


PSTPLI 


1D5 


01 


PSTGVWKL 


B8 


34 


PSTPLIPR 


230 




PSTHDWIP 


B2 


08 


PSTPOSEL 


B4 




PSTHISES 


B2 


80 


PSTPREAD 







PSTHISMR 


1D4 


10 


PSTPREAR 


AC 




PSTHLPI 


1D5 


02 


PSTPRTGT 


264 




PSTINLD 


89 


34 


PSTPRVWT 


44 


08 


PSTINTNT 


44 


40 


PSTPSB 


58 




PSTIOERR 


89 


08 


PSTPUTKY 


88 


0D 


PSTIQPRM 


48 




PSTQDEQ 


88 


08 


PSTIWAIT 


102 


80 


PSTQENQ 


88 


00 


PSTLIPRM 


1E8 




PSTQLEV 


23C 




PSTLNGTH 


430 


0478 


PSTQLEXC 


23C 


08 


PSTLODU 


1D4 


40 


PSTQLRO 


23C 


00 


PSTLODUH 


1D4 


20 


PSTQLUPD 


23C 


04 


PSTLOGIP 


44 


02 


PSTQPUR 


88 


OC 


PSTLOGQ 


1B8 




PSTQRBDC 


89 


08 


PSTLOGWA 


1B4 




PSTQRDDL 


89 


04 


PSTMI 


4C 




PSTQRNSE 


89 


10 


PSTMSPUT 


88 


0E 


PSTQROOP 


89 


02 


PSTNOBFA 


89 


31 


PSTQRWR 


89 


01 


PSTNOERR 


B4 


40 


PSTQVER 


88 


04 


PSTNORO 


238 




PSTRAEND 


1BC 




PSTNOSPC 


89 


OC 


PSTRBAL 


B8 


04 


PSTNOTFD 


89 


14 


PSTRDERR 


89 


08 


PSTNPLSP 


89 


1C 


PSTRETRE 


E0 




PSTNUMRO 


100 




PSTRPSTA 


244 




PSTNUMWT 


101 




PSTRRDF 


23C 




PSTNWBLK 


89 


18 


PSTRRDL 


240 




PSTOCALL 


88 


04 


PSTRTCDE 


89 




PSTOCBAD 


88 


80 


PSTSABND 


48 


20 


PSTOCCLS 


88 


00 


PSTSAVRE 


B8 




PSTOCDCB 


88 


10 


PSTSAVTR 


248 




PSTOCDMB 


88 


01 


PSTSCALL 


44 


80 


PSTOCDSG 


88 


40 


PSTSCDAD 


44 





4f "~ 



O 



5-146 DL/I DOS/VS Logic Manual, Volumel 



Licensed Material — Property of IBM 






Cross Reference 














Hex 


Hex 




Hex 


Hex 


Name Offset 


Value 


Name 


Offset 


Value 


PSTSCHED 


44 


10 


PSTXCONM 


1D5 


80 


PSTSDATA 


B8 


CE 


PSTXMDLT 


88 


A0 


PSTSEG 


54 




PSTXMISR 


88 


A2 


PSTSEGL 


50 




PSTXMRPL 


88 


A1 


PSTSMRQ 


B2 


02 


PSTXMUNL 


88 


A3 


PSTSPL 


B8 


D4 


PSTXPRTM 


1D5 


40 


PSTSTLBG 


88 


OC 


PSTXPSV1 


108 




PSTSTLEQ 


*88 


09 


PSTXPSV2 


10C 




PSTSTLN 


80 


28 


PSTXPSV3 


110 




PSTSUBNM 


BO 










PSTSUIN 


A8 










PSTSV1 


280 










PSTSV2 


2C8 










PSTSV3 


310 










PSTSV4 


358 










PSTSV5 


3A0 










PSTSV6 


3E8 










PSTSV7 


430 










PSTSWI 


B2 










PSTSWKAR 


B8 


B8 








PSTSWKL 


B8 


40 








PSTTABND 


48 


10 








PSTTSKID 


104 










PSTUDR 


1D4 


04 








PSTUIB 


114 










PSTULU 


1D4 


02 








PSTUSER 


4C 










PSTUSM 


1D4 


01 








PSTUST 


1D4 


08 








PSTVLSR 


B8 


FA 








PSTVSL 


B8 


06 








PSTWABUF 


90 


80 








PSTWRITE 


88 


08 








PSTWRKD1 


13C 










PSTWRKD2 


140 










PSTWRKD3 


144 










PSTWRKD4 


148 










PSTWRKD5 


14C 










PSTWRKD6 


150 










PSTWRKD7 


154 










PSTWRKT1 


128 










PSTWRKT2 


12C 










PSTWRKT3 


130 










PSTWRKT4 


134 










PSTWRKT5 


138 










PSTWRK1 


118 










PSTWRK2 


11C 










PSTWRK3 


120 










PSTWRK4 


124 










PSTWROSI 


89 


20 









Section 5. Data Areas 5-147 



Licensed Material — Property of IBM 

QWA - Queueing Facility Work Area 

DSECT Name: DLZQWA 

The QWA contains information used by the queuing facility module to build control blocks and RDB queue headers. 
It also contains information used to locate the proper RDB for a particular resource ID. 



Offsets 
(Dec) (Hex) 


Length 


Field/Flac 
Name 


? Flag Code 
(Bit) 


Description 


(0) 





DLZQWA 






(0) 


36 


QWA 







Module identifier 



Page pointers for free block management 






(0) 


4 


QWAFPP 


4 


(4) 


4 


QWACPP 


8 


(8) 


1 


QWAFLG1 
QWADDDF 

QWANPOF 


9 


(9) 


1 


QWAFLG2 


10 


(A) 


1 


QWAFLG3 


11 


(B) 


1 


QWAFLG4 


12 


(C) 


4 


QWAWFLD 


16 I 


110) 


4 


QWANOQH 


20 I 


M4) 


4 


QWAHMLT 


24 I 


(18) 


Var 


QWARDBQH 


Cross Reference 






Name 


Off 


Hex 
:set 


Hex 
Value 


DLZQWA 

QWA 

QWACPP 

QWADDDF 

QWAFLG1 

QWAFLG2 

QWAFLG3 

QWAFLG4 

QWAFPP 

QWAHMLT 

QWANOQH 

QWANPOF 

QWARDBQH 

QWAWFLD 






4 

8 

8 

9 

A 

B 



14 

10 

8 

18 

C 


01 
02 



First page pointer 

Current page pointer flag 
bytes 

First flag byte 

"X'01 '" Do deadlock 
detection 

,l X I 02 in New prime owner 
exists 

Second flag byte 

Third flag byte 

Fourth flag byte work 
fields 

Work field RDB queue area 

Number of queue heads 

Hashing multiplier 

RDB chain queue headers 
of four bytes each 
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RDB - Resource Descriptor Block 

DSECT Name: DLZRDB 

The RDB (Resource Descriptor Block) is used to describe a resource for which enqueues are outstanding. In 
addition, it acts as an anchor for the chains of RRDs (Resource Request Descriptors) that describe the current queue 
requests for the resource. For more information, refer to "DLZQUEFO -Queueing Facility" in Section 3 of this 
book. 



Offsets 



(Dec) 


(Hex) 
(0) 


Leng 


th Name 








DLZRDB 





(0) 


24 


RDB 





(0) 


1 


RDBPOID 





(0) 


4 


RDBRDBF 


4 


(4) 


1 


RDBUOID 


4 


(4) 


4 


RDBRDBB 


8 


(8) 


1 


RDBMAXL 


8 


(8) 


4 


RDBRRDF 


12 


(C) 


1 


RDBNOWN 


12 


(C) 


4 


RDBRRDL 


16 


(10) 


7 


RDBRID 


23 


(17) 


1 


RDBLEN 


Cross Reference 






Name 


Hex 
Offset 


Hex 
Value 


DLZRDB 









RDB 









RDBLEN 




17 


18 


RDBMAXL 




8 




RDBNOWN 




C 




RDBPOID 









RDBRDBB 




4 




RDBRDBF 









RDBRID 




10 




RDBRRDF 




8 




RDBRRDL 




C 




RDBUOID 




4 





Field/Flag Flag Code 
(Bit) 



1 1 



Description 



Primary owner PST prefix 
number 

RDB forward chain pointer 

Update owner PSTpst prefix 
number 

RDB backward chain pointer 

Top enqueue level of current 
owners 

Pointer to first RRD 

Current number of owners 

Pointer to last RRD 

Resource ID 

Reserved 

"*-RDB" Length of RDB 
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RGT - Range Table 

DSECT Name: DLZPRRGT 

This DSECT describes one range of keys or blocks to be reorganized. The range table is part of the common area. 
There are ten RGT entries available. They are completed by parameter analysis from data supplied by the user in 
control cards. This control block is used by the partial reorganization utility. 






Offsets 




Field/Flag 


(Dec) 


(Hex) 


Length 


Name 





(0) 





RGT 





(0) 


4 


RGTSTART 





(0) 


4 


RGTFBKLO 


4 


(4) 


4 


RGTFBKHI 


8 


(8) 


4 


RGTFTL01 


12 


(C) 


4 


RGTFTHI 1 


16 


(10) 


4 


RGTFTL02 


20 


(14) 


4 


RGTFTHI 2 


24 


(18) 


4 


RGTFTL03 


28 


(1C) 


4 


RGTFTHI 3 


32 


(20) 


4 


RGTFTL04 


36 


(24) 


4 


RGTFTHI4 


40 


(28) 


4 


RGTFTL05 


44 


(2C) 


4 


RGTFTHI 5 


48 


(30) 


4 


RGTFTL06 


52 


(34) 


4 


RGTFTHI 6 


56 


(38) 


4 


RGTFTL07 


60 


(3C) 


4 


RGTFTHI 7 


64 


(40) 


4 


RGTFTL08 


68 


(44) 


4 


RGTFTHI 8 


72 


(48) 


4 


RGTFTL09 


76 


(4C) 


4 


RGTFTHI 9 


80 


(50) 


4 


RGTFTL10 


84 


(54) 


4 


RGTFTH10 


88 


(58) 


1 


RGTKIND1 



(Bit) Description 



First block in range to be 
reorganized 

Last block in range to be 
reorganized 

First block in DSG 1 for 
reload to use 

Last block in DSG 1 for 
reload to use 

Same for DSG 2 

Same for DSG 2 






V 



First block in DSG 10 for 
reload to use 

Last block in DSG 10 for 
reload to use 

Key range format indicator 
1 (C or X) 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



89 
90 



(59) 
(5A) 



RGTKIND2 



RGTFLEN 



1.1 11 



Description 

Key range format indicator 
2 (C or X) 

Reserved 

"♦-RGTSTART" length of a 
RGT entry 



RGTKEYAR 



.1.1 11 



C 



Cross Reference 






Hex 
Name Offset 


Hex 
Value 


RGT 







RGTFBKHI 


4 




RGTFBKLO 







RGTFLEN 


5A 


5C 


RGTFTHI1 


C 




RGTFTHI2 


14 




RGTFTHI3 


1C 




RGTFTHI4 


24 




RGTFTHI5 


2C 




RGTFTHI6 


34 




RGTFTHI7 


3C 




RGTFTHI8 


44 




RGTFTHI9 


4C 




RGTFTH10 


54 




RGTFTL01 


8 




RGTFTL02 


10 




RGTFTL03 


18 




RGTFTL04 


20 




RGTFTL05 


28 




RGTFTL06 


30 




RGTFTL07 


38 




RGTFTL08 


40 




RGTFTL09 


48 




RGTFTL10 


50 




RGTKEYAR 


5A 


5C 


RGTKIND1 


58 




RGTKIND2 


59 




RGTSTART 
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RIB - Remote Interface Block 

DSECT Name: DLZRIB 

This DSECT describes remote interface block fields. The RIB is used by DL/I for CICS/VS intersystem 
communications (ISC) support. It defines fields passed between CICS/VS and DL/I. 



Offsets 



(Dec) 


(Hex) 


Length 


Name 





(0) 





DLZRIB 





(0) 


4 


RIB 





(0) 


4 


RIBPCBAL 


4 


(4) 


4 


RIBCHAIN 


8 


(8) 


4 


RIBIOAWK 


12 


(C) 


4 


RIBUPPER 


16 


(10) 


2 


RIBINDEX 


18 


(12) 


1 


RIBISC 



Field/Flag Flag Code 
(Bit) 



Description 



19 



20 



(13) 



(14) 



RIBPCBM 

RIBBUFAL 

RIBCHKP 

RIBISCO 
RIBSYNC 
RIBHLPI 

RIBISCI 
RIBFUNC 

RIBCALL 

RIBLNKNA 

RIBLNKSH 









RIBNOSTT 


21 


(15) 


1 


RIBFCTR 


22 


(16) 


1 


RIBDLTR 



1 . 



ISC remote interface block 
this control block follows 
immediately after the RPST 
Local PCB address list 

Remote PSB storage chain 

Local PSB I/O work area 

Highest address of caller 
partition 

PCB index number 

ISC scheduling duration 
flags 

"X'SO"' PCBM scheduling 
call issued 

"X f 40"' RIBIOAWK buffer 
allocated 

"X^O"' Dl/I checkpoint 
call in progress 

ISC outbound flags 

"X f 80 f " Sync point issued 

"X^O 1 " DL/I HLPI command 
with SSA and I/O lengths 
provided 

ISC inbound flags 

"X ' 80 ' " Function string 
invalid 

"X^O*" User call parameter 
list invalid 

"X^O 1 " Link does not 
exist 

"X 1 10* " Link is out of 
service 

M X f 08 IM CICS/VS not counting 
DL/I calls 

ISC response code 

Additional response 
information 



€ 



V. 
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Offsets 
(Dec) (Hex) Length 



22 



(16) 



Field/Flag Flag Code 
Name (Bit) 

RIBDLTR 



Description 

Additional response 
information 



RIBRSET 



1.. "*-RIBISCO" length of 

function dependent flags 



23 
24 



(17) 
(18) 



RIBIOLEN 



Reserved 

I/O area length for HLPI 
data base command 



28 



(1C) 



RIBLEN 



. . .1 11 



Length always fullword 
multiple 

"*-RIB" length of RIB 



C 



C 



Crass Reference 






Hex 
Name Offset 


Hex 
Value 


DLZRIB 







RIB 







RIBBUFAL 


12 


40 


RIBCALL 


14 


40 


RIBCHAIN 


4 




RIBCHKP 


12 


20 


RIBDLTR 


16 




RIBFCTR 


15 




RIBFUNC 


14 


80 


RIBHLPI 


13 


40 


RIBINDEX 


10 




RIBIOAWK 


8 




RIBIOLEN 


18 




RIBISC 


12 




RIBISCI 


14 




RIBISCO 


13 




RIBLEN 


1C 


1C 


RIBLNKNA 


14 


20 


RIBLNKSH 


14 


10 


RIBNOSTT 


14 


08 


RIBPCBAL 







RIBPCBM 


12 


80 


RIBRSET 


16 


04 


RIBSYNC 


13 


80 


RIBUPPER 


C 








Section 5 . Data Areas 5-153 



Licensed Material — Property of IBM 



RPCB - Remote PCB 

DSECT Name: DLZRPCB 

This DSECT describes remote PCB fields. The RPCB is an extension of PCB local storage used by DL/I for 
CICS/VS intersystem communication (ISC) support. RPCBs exist only while a task is scheduled for a data base 
that is located on some other system. In this case, the address of the RPCB is located four bytes ahead of the PCB. 



Description 

Start of ISC remote PCB 

Max PCB I/O area size 

Length of last retrieve 

Flag byte 

m x i 80 »" previous get hold 
path call 

Reserved 

Length always fullword 
multiple 

"*-RPCB" length of RPCB 



4"^ 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


\ Flag Code 
(Bit) 





(0) 







DLZRPCB 







(0) 


4 




RPCB 







(0) 


4 




RPCBMIOS 




4 


(4) 


4 




RPCBSEGL 




8 


(8) 


1 




RPCBFlag 
RPCBPATH 


1 


9 


(9) 


3 








12 


(C) 


4 




RPCBLEN 


11 . . 


Cross Reference 










Name 


Hex 
Offset 


Hex 
Value 




DLZRPCB 

RPCB 

RPCBFlag 

RPCBLEN 

RPCBMIOS 

RPCBPATH 

RPCBSEGL 






8 
C 

8 
4 




OC 
80 





4 



"A 
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C 



RPDIR - Remote PSB Directory 
DSECT Name: DLZRPDIR 

This DSECT describes remote PSB directory fields. The RPDIR is an extension of the PDIR. It contains 
information used by DL/I for CICS/VS intersystem communication (ISC) support. 



Offsets 



(Dec) 


(Hex) 


Length 


Name 





(0) 







DLZRPDIR 





(0) 


4 




RPDIR 





(0) 


4 




RPDIRSYS 


4 


(4) 


8 




RPDIRPSB 


12 


(C) 


2 




RPDIRLOC 


14 


(E) 


1 




RPDIRFLG 
RPDIRORD 


15 


(F) 


1 






16 


(10) 


4 




RPDIRLEN 


Cross Reference 








Name 


Off 


Hex 
r set 


Hex 
Value 


DLZRPDIR 









RPDIR 











RPDIRFLG 


E 






RPDIRLEN 


10 




10 


RPDIRLOC 


C 






RPDIRORD 


E 




01 


RPDIRPSB 


4 






RPDIRSYS 










Field/Flag Flag Code 
(Bit) 



Description 



Remote PSB directory start 

System name on which 
remote PSB is defined 

Name of PSB to use on 
remote system 

Optional local PSB PDIR 
pointer 

Flag byte 

"X'OI 1 " Local PCBS follow 
remote 

Reserved 

Length is fullword 
multiple 

"♦-RPDIR" length of RPDIR 
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RPST - Remote PST 

DSECT Name: DLZRPST 

This DSECT describes remote PST fields. The RPST is an extension of task local storage used by DLZODP for 
CICS/VS intersystem communication (ISC) support. 






Offsets 



(Dec) 


(Hex) 


Length 


Name 





(0) 





DLZRPST 





(0) 


4 


RPST 





(0) 


4 


RPSTISC1 


4 


(4) 


4 


RPSTISC2 


8 


(8) 


4 


RPSTISC3 


12 


(C) 


4 


RPSTISC4 


16 


(10) 


4 


RPSTISC5 


20 


(14) 


4 


RPSTISC6 


24 


(18) 


1 


RPSTATUS 


25 


(19) 


3 


RPST ACT A 


28 


(1C) 


4 


RPSTRPSB 


32 


(20) 


4 


RPSTRPCB 


36 


(24) 


4 


RPSTXPSB 


40 


(28) 


4 


RPSTXPCB 


44 


(2C) 


4 


RPSTACCT 


44 


(2C) 


4 


RPSTGU 


48 


(30) 


4 


RPSTGN 


52 


(34) 


4 


RPSTGNP 


56 


(38) 


4 


RPSTGHU 


60 


(3C) 


4 


RPSTGHN 


64 


(40) 


4 


RPSTGHNP 


68 


(44) 


4 


RPSTISRT 


72 


(48) 


4 


RPSTDLET 



Field/Flag Flag Code 
(Bit) 



Description 



Start of DSECT 

ISC parameter 1 

ISC parameter 2 

ISC parameter 3 

ISC parameter 4 

ISC parameter 5 

ISC parameter 6 

Flag byte 

Program's ACT entry 
address 

Remote PSB PDIR entry 
address 

Remote PSB A(PCB address 
list) 

Local PSB PDIR entry address 

Local PSB A(PCB address 
list) 

Remote call statistics 

Number of GU calls issued 

Number of GN calls issued 

Number of GNP calls issued 

Number of GHU calls issued 

Number of GHN calls issued 

Number of GHNP calls 
issued 

Number of ISRT calls 
issued 

Number of DLET calls 
issued 



V. 



Vy 
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Offsets 
(Dec) (Hex) Length 

76 (4C) 4 



Field/Flag Flag Code 



80 



(50) 



Name 



RPSTREPL 



RPSTCHKP 



RPSTSTLN 



(Bit) 



1 . 1 



84 



(54) 







RPSTLEN 


Cross Reference 


• 






Hex 


Hex 


Name Offset 


Value 


DLZRPST 







RPST 







RPSTACCT 


2C 




RPSTACTA 


19 




RPSTATUS 


18 




RPSTCHKP 


50 




RPSTDLET 


48 




RPSTGHN 


3C 




RPSTGHNP 


40 




RPSTGHU 


38 




RPSTGN 


30 




RPSTGNP 


34 




RPSTGU 


2C 




RPSTISC1 







RPSTISC2 


4 




RPSTISC3 


8 




RPSTISC4 


C 




RPSTISC5 


10 




RPSTISC6 


14 




RPSTISRT 


44 




RPSTLEN 


54 


54 


RPSTREPL 


4C 




RPSTRPCB 


20 




RPSTRPSB 


1C 




RPSTSTLN 


50 


28 


RPSTXPCB 


28 




RPSTXPSB 


24 





1.1 .1 



Description 

Number of REPL calls 
issued 

Number of CHKP calls 
issued 

"* -RPSTACCT" Length of 
remote statistics section 

Length always fullword 
multiple 

"•-RPST" Length of RPST 
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RRD - Resource Request Descriptor 

DSECT Name: DLZRRD 

The RRD (Resource Request Descriptor) is used to maintain a record of all the requests by one task for a particular 
resource and their current status. For more information, refer to "DLZQUEFO - Queueing Facility" in section 3 of 
this book. 



c. 



Offsets 




Field/Flag 


(Dec) 


(Hex) 


Length 


Name 





(0) 





DLZRRD 





(0) 


24 


RRD 





(0) 


1 


RRDNQRO 





(0) 


4 


RRDPSTQF 


4 


(4) 


1 


RRDNQUP 


4 


(4) 


4 


RRDPSTQB 


8 


(8) 


1 


RRDNQEX 


8 


(8) 


4 


RRDRDBQF 


12 


(C) 


1 


RRDMAXL 


12 


(C) 


4 


RRDRDBQB 


16 


(10) 


1 


RRDFLAG 
RRDOWNF 
RRDWAITF 

RRDPOWNF 


16 


(10) 


4 


RRDRDBP 


20 


(14) 


4 


RRDPSTP 
RRDLEN 



(Bit) Description 



Number of read-only 
ownerships for task 

Next RRD for task 

Number of update 
ownerships for task 

Prior RRD for task 

Number of exclusive 
ownerships for task 

Next RRD for resource 

Current top enqueue level 
for resource by task 

Prior RRD for resource 

Flag byte 

. ...1 "X'01"' Task owns resource 

. ..1. "X^ 1 " Task is waiting 
for resource 

. .1.. ll X f 04 l " Task is prime owner 

RDB for resource 

PST for task 
1 1 . . . "*-RRD" length of RRD 



€ 
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Crass Reference 










Hex 


Hex 


Name 


Off 


:set 


Value 


DLZRRD 









RRD 









RRDFLAG 




10 




RRDLEN 




14 


18 


RRDMAXL 




C 




RRDNQEX 




8 




RRDNQRO 









RRDNQUP 




4 




RRDOWNF 




10 


01 


RRDPOWNF 




10 


04 


RRDPSTP 




14 




RRDPSTQB 




4 




RRDPSTQF 









RRDRDBP 




10 




RRDRDBQB 




C 




RRDRDBQF 




8 




RRDWAITF 




10 


02 
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SBIF - Subpool Information Table 

DSECT Name: DLZSBIF 

The subpool information table is described as part of the general structure and description of DL/I buffer pool 
control blocks. There is one subpool information table for each subpool allocated. 



Description 



PST prefix number of first 
task in chain for enqueue 
subpool 

PST prefix number of last 
task in chain for enqueue 
subpool 

Number of buffers in this 
subpool 

HDBFR indicator 

"X'SO 1 " DMB assigned to 
this subpool by HDBFR 
parameter 

"X^O"' Buffers associated 
with subpool dumped 

Beginning of the use chain 

Accumulated number of 
buffers in preceding 
subpools 

Buffer use chain 

(Not used in DL/I DOS/VS) 

Size of buffers in this 
subpool : 

X'01 ' = 512 bytes 

X f 02' = 1024 bytes 

X f 03' = 1536 bytes 

X'04' = 2048 bytes 

X f 05' = 2560 BYTES 

X f 06 f = 3072 BYTES 

X'07' = 3584 bytes 

X'08' = 4096 bytes 

Number of DMBs assigned 

"*-SUBINFTA" length of the 
subpool information table 



_S 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





SUBINFTA 







(0) 


1 


SUBNQFI 




1 


(1) 


1 


SU^NQLA 




2 


(2) 


1 


SUBBFNO 




3 


(3) 


1 


SUBBFHD 
SUBFRSV 

SUBDUMP 


1 

.1 


4 


(4) 


40 


SUBUSCHA 




4 


(4) 


4 


SUBUCPRE 




8 


(8) 


4 


SUBUCHAK8) 




40 


(28) 


4 


SUBUCSUF 




44 


(2C) 


1 


SUBBFSIZ 





45 



(2D) 



SUBDMBCT 
SUBLEN 



4"" 



.1. 111 . 



C 
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Cross Reference 






Hex 
Name Offset 


Hex 
Value 


SUBBFHD 


3 




SUBBFNO 


2 




SUBBFSIZ 


2C 




SUBDMBCT 


2D 




SUBDUMP 


3 


40 


SUBFRSV 


3 


80 


SUBINFTA 







SUBLEN 


2D 


2E 


SUBNQFI 
SUBNQLA 
SUBUCHAI 



1 
8 




SUBUCPRE 


4 




SUBUCSUF 


28 




SUBUSCHA 


4 





c 
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SCD - System Contents Directory 

DSECT Name: DLZSCD 

The DL/I SCD (System Contents Directory) is produced during DL/I system definition for online CICS/VS-DL/I. 
The SCD is preassembled as part of the DL/I nucleus in the batch DL/I system. The SCD contains major entry 
pointers for all DL/I facilities. 






Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 







(0) 
(0) 



96 



DLZSCD 



CPYRITE 



Description 

DOS/DLI SCD dummy 
section 

Reserved for copyright 
information 



System contents directory 

96 (60) 8 SCD 

System configuration section 

96 (60) 1 SCDDLIV 

97 (61) 1 SCDDLIM 

98 (62) 4 SCDDATE 
102 (66) 2 SCDMXTSK 
104 (68) 2 SCDCMXT 



106 



108 



(6A) 



(6C) 



SCDATSKC 



SCDLOWER 



112 


(70) 


4 


SCDUPPER 


116 


(74) 


4 


SCDNAVID 


120 


(78) 


4 


SCDLOWID 


124 


(7C) 


4 


SCDCOMRG 


128 


(80) 


4 





Action module entry point addresses 

132 (84) 4 SCDPRHED 



136 (88) 



140 (8C) 



SCDDDBH0 



SCDDLIRE 



Start of addressable SCD 

DL/I version number 

DL/I modification level 

System date-Julian 

DL/I max task count-online 

DL/I current maximum 
task-online 

Active DL/I task counter 
online 

Partition lower boundary 
address pointer to 
addressable part of the 
SCD (batch only) 

Partition upper boundary 
address 

Next available task ID 

Lowest task ID 

COMREG address 

Reserved 



Entry point of program 
request handler 
(Batch = DLZPRHB0, 
Online = DLZPRHO0) 

Entry point of buffer 
handler (DLZDBH00) 

Entry point of retrieve 
(DLZDLR00) 






V^ 
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Offsets 
(Dec) (Hex) Length 

144 (90) 4 



148 (94) 



152 (98) 



156 (9C) 



160 (A0) 



164 (A4) 



168 (A8) 4 



172 (AC) 



172 (AC) 



Field/Flag Flag Code 
Name (Bit) 

SCDDLICT 



SCDDLARE 



SCDDBLNT 



SCDDLIDR 



SCDDLIIN 



SCDDHDSO 



SCDDXMTO 



SCDDLICL 



SCDDSEHO 



SCDQUEFO 









SCDQFSCD 








SCDQFJRN 


176 


(BO) 


4 


SCDQUEFW 


180 


(B4) 


4 


SCDCPY10 


184 


(B8) 


4 




188 


(BC) 


4 


SCDIWAIT 



192 



(CO) 



SCDERRMS 



Description 

Entry point of call 
analyzer (DLZDLA00) 

"32" offset to entry point 
on return to call analyzer 

Entry point of data base 
log module (DLZRDBLO) 
= E.P. of log 

initialization until after 
initialization 

Entry point of 
delete/replace (DLZDLD00) 

Entry point of load/insert 
for retrieve (DLZDDLEO) 

Entry point to space 
management (DLZDHDSO) 

Entry point of index 
maintenance (DLZDXMTO) 

Entry point of open/close 
(DLZDLOC0) 

Entry point of routine 
to create work files for 
batch only (DLZDSEHO) 

Entry point of enqueue/ 
dequeue module for program 
isolation (online only) 
(DLZQUEFO) 

"4" displacement to SCD 
address field in DLZQUEFO 

"8" displacement to JRNAD 
exit address in DLZQUEFO 

Enqueue/dequeue work area 

Entry point for field level 
sensitivity expansion 
routine (DLZCPY10) 

Reserved 

Batch = ENTRY POINT of 

DLZIWAIT 

Online = address of branch 

table 1st entry = entry 

point 

DLZOWAIT 2nd entry = entry 

point 

DLZCMFHK 

Entry point of error 

message 

routine (Batch = ERRORMSG, 

Online =DLZERMSG) 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



196 (C4) 



200 (C8) 



204 (CC) 



208 (DO) 



SCDASE 



S CD ABEND 



SCDTKTRM 



SCDSTR00 



212 (D4) 4 

System control block section 



216 (D8) 

217 (D9) 



220 



(DC) 



SCDDBFPL 11.1 1 

SCDBFPL 
SCDDBFA 

SCDDLIPS 



224 


(E0) 


2 


SCDDLIPL 


226 


(E2) 


2 


SCDDLIPN 


228 


(E4) 


4 


SCDDLIDM 


232 


(E8) 


2 


SCDDLIDL 


234 


(EA) 


2 


SCDDLIDN 


236 


(EC) 


4 


SCDPPSTS 


240 


(F0) 


2 


SCDPPSTL 


242 


(F2) 


2 


SCDPPSTN 


244 


(F4) 


4 


SCDPPAF 

SCDUSAVE 1111 . 1 



SCDFLPC 



1111.1 



SCDLIPLI 1 



Description 

Entry point of online task 
Schedule routine (DLZSCHDL) 

Entry point of DL/I ABEND 
routine 

(Batch = DLZABEND online = 
DLZABND0) 

Entry point of on-line task 

termination for program 
request handler (DLZTKTRM) 

Entry point of FLD storage 
manager (Batch = DLZSTRB0 
Online = DLZSTROO) 

Reserved 



"*" label for buffer 
handler 

Number of buffer sub-pools 

Address of buffer pool 
control block prefix 
(DLZBFPL) 

Address of PSB directory 
(DLZPDIR) 

Length of PDIR entries 

Number of PDIR entries 

Address of DMB directory 
(DLZDDIR) 

Length of DDIR entries 

Number of DDIR entries 

Address of PST prefix 
entries (DLZPPST) 

Length of PPST entries 

Number of PPST entries 

Online forward PST prefix 
active pointer 

"SCDPPAF" address of save 
area passed to user by 
DL/I batch initialization 
for PL/I high level 
language debugging 

"SCDUSAVE" flag byte for 
HLL debugging 

"X'SO'" = in DL/I code 
or non PL/I language 
1 = in PL/I code 






v.. J 



4"^ 



\, 
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Offsets 
(Dec) (Hex) Length 



t 



248 (F8) 4 

252 (FC) 4 

256 (100) 4 

260 (104) 2 

262 (106) 2 

264 (108) 4 

268 (10C) 4 

272 (110) 4 

276 (114) 4 

276 (114) 

280 (118) 2 

282 (11A) 2 



284 (11C) 



1 



Field/Flag Flag Code 
Name (Bit) 

SCDFLSAV .1 



SCDPPAB 

SCDPPFF 

SCDPPFB 

SCDPSTLN 
S CD WAIT 
SCDACTBA 

SCDCDTA 
SCDDLIS 

SCDDLIUP 

SCDCSABA 

SCDTKCNT 
SCDSPCNT 

SCDSIND 

SCDMTI 1 . . . 

SCDCMTI . 1 . . 

SCDDELT . . 1 . 






SCDUPD 

SCDTWFI 

SCDHLRE 

SCDNDMP 
SCDNLOGI 



. .1 



Description 

"X'40'" Batch STXIT PC 
savearea 

= in DL/I storage 

1 = in user storage 

Online backward PST prefix 
active pointer 

Online forward PST prefix 
free pointer (DLZPPSTF) 

Online backward PST prefix 
free pointer (DLZPPSTE) 

Length of PST 

Reserved 

Address of online 
application program 
control table (DLZACTBA) 

Address of current online 
dispatched task's TCA 

A (user TCA) of first 
online task suspended for 
max task 

Address of batch DL/I 
upper boundary 

"SCDDLIUP" address of 
online CICS/VS CSA 

Reserved 

Count of suspended tasks 
due to maximum task 

System indicator 

"X ! 80*" DL/I maximum task 
indicator 

"X ! 40 ,M DL/I current 
maximum task indicator 

"X'20'" On-line indicator 
for PSB delete sensitivity 

"X'10 1 " On-line indicator 
some PSB has update 
sensitivity 

"X'OS 1 " Task waiting for 
segment intent 

"X'08 1 " HLL re- entry 
indicator STXIT 

"X'04 1 " No dump at ABEND 

"X , 02*" No data base 
logging to be done 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



Description 



285 (11D) 



305 (131) 1 

306 (132) 2 
308 (134) 4 



SCDNABND 



SCDNJNL 



SCDSYACT 
SCDSYWAT 

SCDRLRST 
SCDRELOD 
SCDRLABN 



.1 



SCDSIND2 
SCDSYSAB 1... . 



.1 . . . 
. .1 . . 

. . .1 . 

1 

1 









SCDSYINT 


1 . 








SCDSOPLG 


1 


286 


(11E) 


2 


SCDNTWC 




288 


(120) 


4 


SCDABSAV 




292 


(124) 


4 


SCDLSTAD 




296 


(128) 


4 


SCDMPCPT 




300 


(12C) 


4 


SCDEXTBA 




304 


(130) 


1 


SCDDBMPS 
SCDXECB 

SCDPI 

SCDRPSB 


1 

.1 

. .1 



SCDPDCA 



"X'01 '" Batch no STXIT 
abend to be issued 

"X'OI 1 " Online no CICS/VS 
journal in use 

System flags 

"X'SO' " System ABEND 
on-line 

"XMO"' System task active 

"X'20 ,n System task 
waiting 

"X'lO"' HD reload restart 

"X'OS 1 " HD reload utility 

,, X , 04 IM HD reload or 
reload/restart abend is in 
process 

"X , 02 ,M Initialization bit 

"X'01 ' " Open records 
written to CICS/VS journal 

Count of suspended tasks 
due to scheduling intent 
conflict 

Pointer to pseudo-ABEND 
save area (DLZABSAV) 

Address of CICS/VS interface 
address list (DFHDLIAL) 

Address of MPC partition 
table 

Pointer to SCD extension 

Flag byte 

"X'80'" XECBs defined by 
MPC 

"X'40 1 " Program isolation 
active 

"X^O"' Remote PSB defined 

Reserved 

Reserved 

Address of problem 
determination control area 






,4: 



V_^ 



Data base change log section 

312 (138) 4 SCDREENT 



Entry point of 
log write only 
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( 



C 



Offsets 

(Dec) (Hex) Length 

316 (13C) 4 
320 (140) 4 
324 (144) 4 



Field/Flag Flag Code 
Name (Bit) 

SCDDBLFW 



SCDDBLCL 



SCDDBLAS 



328 


(148) 


4 


SCDDBLSV 


332 


(14C) 


4 


SCDDBLWO 


336 


(150) 


4 


SCDCWRK 


340 


(154) 


2 


SCDCWRKL 


342 


(156) 


2 


SCDSEQ 


344 


(158) 


2 


SCDREPLN 


346 


(15A) 


1 


SCDDBLOP 
SCDDBLO 



SCDDBLOR . 1 

SCDDBLTD 
SCDDBLD2 

SCDDBLSP 

SCDDBLCJ 

SCDDBASL 



347 


(15B) 


3 


SCDLOC03 


347 


(15B) 


1 




348 


(15C) 


2 


SCDLOCOU 


350 


(15E) 


2 




352 


(160) 


4 


SCDBKWRK 


Trace section 






356 


(164) 


4 


SCDTRACE 


360 


(168) 


8 


SCDTRCNM 



Description 

Entry point of log 
force write 

Entry point of log 
close routine 

Entry point of 
asynchronous log 

Entry point of log 
save area 

Entry point of 

write log open record 

Address of DB log 
work area 

Length of DB log work 
area 

DB log sequence number 

Length of DB log prefix 

Data base log option byte 

"X'SO"' Data base log is 
open 

"X^O"' Data base log open 
required 

,f X f 20 ,M Disk logging used 

"XMO"' Two disk extents 
used 

"X'OS 1 " Pause before 
extent switch 

,, X I 04 IM CICS/VS journal in 
use 

,, X , 02 ,M Data base 
asynchronous log required 

Current log count 

First byte of log count 

Last two bytes of log 
count 

Reserved 

Backout log workarea 
pointer D 



Entry point of trace 
module if present 

Name of trace module 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



368 (170) 1 



369 (171) 1 



370 (172) 

Statistics section 

372 (174) 

380 (17C) 
384 (180) 
388 (184) 



SCDTRFL1 

SCDTUSER 1 . . . 

SCDTAMOD . 1 . . 

SCDTRETR . . 1 . 

SCDTCPOS ... 1 

SCDTSEGM 



SCDTINDX 

SCDTRFL2 
SCDTOLBH 1 . 
SCDTPITR . 1 



SCDTSKCT 



SCDDLOCT 



SCDCMTCT 



SCDPDUP 



392 (188) 128 SCDPATCH 

SCDLNGTH 



1 



SCDTVSAM 1 . 

SCDTBHCL 1 



. . .1 



Description 

Trace option byte 1 

"X^O"' User call 
interface 

"X^O*" Action module 
trace 

"X^O"' Retrieve (for get 
calls) 

"X'lO 1 " Current position 
information 

"X f 08 ,H (Not used in DL/I 
DOS/VS) 

"X^"' VSAM interface 

"X f 02 ,n Buffer handler 
interface 

"X , 01 ,M Requests to index 
maintenance 

Trace option byte 2 

"X'SO"' Online trace 

"X^O 1 " Program isolation 
trace 



Reserved 



Total number of PSB 
scheduling calls 

Program isolation deadlock 
occurrence count 

Number of times at current 
max task 

Number of duplicate PSBs 
created 

DL/I patch area 

"•-DLZSCD" length of SCD 






f 



<J 
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Cross Reference 












Hex 
Name Offset 


Hex 
Value 


Name 


Hex 
Offset 


Hex 
Value 


CPYRITE 







SCDDLIPN 


E2 




DLZSCD 







SCDDLIPS 


DC 




SCD 


60 




SCDDLIRE 


8C 




SCDABEND 


C8 




SCDDLIS 


110 




SCDABSAV 


120 




SCDDLIUP 


114 




SCDACTBA 


108 




SCDDLIV 


60 




SCDASE 


C4 




SCDDLOCT 


17C 




SCDATSKC 


6A 




SCDDSEH0 


AC 




SCDBFPL 


D8 




SCDDXMT0 


A4 




SCDBKWRK 


160 




SCDERRMS 


CO 




SCDCDTA 


10C 




SCDEXTBA 


12C 




SCDCMTCT 


180 




SCDFLPC 


F4 


F4 


SCDCMTI 


11C 


40 


SCDFLSAV 


F4 


40 


SCDCMXT 


68 




SCDHLRE 


11C 


08 


SCDCOMRG 


7C 




SCDIWAIT 


BC 




SCDCPY10 


B4 




SCDLIPLI 


F4 


80 


SCDCSABA 


114 


0114 


SCDLNGTH 


188 


0208 


SCDCWRK 


150 




SCDLOCOIT 


15C 




SCDCWRKL 


154 




SCDLOC03 


15B 




SCDDATE 


62 




SCDLOWER 


6C 




SCDDBASL 


15A 


02 


SCDLOWID 


78 




SCDDBFA 


D9 




SCDLSTAD 


124 




SCDDBFPL 


D4 


D8 


SCDMPCPT 


128 




SCDDBLAS 


144 




SCDMTI 


11C 


80 


SCDDBLCJ 


15A 


04 


SCDMXTSK 


66 




SCDDBLCL 


140 




SCDNABND 


11C 


01 


SCDDBLD2 


15A 


10 


SCDNAVID 


74 




SCDDBLFW 


13C 




SCDNDMP 


11C 


04 


SCDDBLNT 


94 




SCDNJNL 


11C 


01 


SCDDBLO 


15A 


80 


SCDNLOGI 


11C 


02 


SCDDBLOP 


15A 




SCDNTWC 


11E 




SCDDBLOR 


15A 


40 


SCDPATCH 


188 




SCDDBLSP 


15A 


08 


SCDPDCA 


134 




SCDDBLSV 


148 




SCDPDUP 


184 




SCDDBLTD 


15A 


20 


SCDPI 


130 


40 


SCDDBLWO 


14C 




SCDPPAB 


F8 




SCDDBMPS 


130 




SCDPPAF 


F4 




SCDDDBHO 


88 




SCDPPFB 


100 




SCDDELT 


11C 


20 


SCDPPFF 


FC 




SCDDHDSO 


A0 




SCDPPSTL 


F0 




SCDDLARE 


90 


20 


SCDPPSTN 


F2 




SCDDLICL 


A8 




SCDPPSTS 


EC 




SCDDLICT 


90 




SCDPRHED 


84 




SCDDLIDL 


E8 




SCDPSTLN 


104 




SCDDLIDM 


E4 




SCDQFJRN 


AC 


08 


SCDDLIDN 


EA 




SCDQFSCD 


AC 


04 


SCDDLIDR 


98 




SCDQUEFW 


BO 




SCDDLIIN 


9C 




SCDQUEF0 


AC 




SCDDLIM 


61 




SCDREENT 


138 




SCDDLIPL 


E0 




SCDRELOD 


1 ID 


08 
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Cross Reference 








Hex 


Hex 


Name Offset 


Value 


SCDREPLN 


158 




SCDRLABN 


11D 


04 


SCDRLRST 


11D 


10 


SCDRPSB 


130 


20 


SCDSEQ 


156 




SCDSIND 


11C 




SCDSIND2 


11D 




SCDSOPLG 


11D 


01 


SCDSPCNT 


11A 




SCDSTROO 


DO 




SCDSYACT 


11D 


40 


SCDSYINT 


11D 


02 


SCDSYSAB 


11D 


80 


SCDSYWAT 


11D 


20 


SCDTAMOD 


170 


40 


SCDTBHCL 


170 


02 


SCDTCPOS 


170 


10 


SCDTINDX 


170 


01 


SCDTKCNT 


118 




SCDTKTRM 


CC 




SCDTOLBH 


171 


80 


SCDTPITR 


171 


40 


SCDTRACE 


164 




SCDTRCNM 


168 




SCDTRETR 


170 


20 


SCDTRFL1 


170 




SCDTRFL2 


171 




SCDTSEGM 


170 


08 


SCDTSKCT 


174 




SCDTUSER 


170 


80 


SCDTVSAM 


170 


04 


SCDTWFI 


11C 


08 


SCDUPD 


11C 


10 


SCDUPPER 


70 




SCDUSAVE 


F4 


F4 


SCDWAIT 


106 




SCDXECB 


130 


80 






4f 



v^ 
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SCDEXT - SCD Extension 
DSECT Name: SCDEXTDS 



c 



c 



The SCD extension is generated in the same manner as the SCD (system contents directory) and is a logical 
extension of it. 



Description 

Logger I/O ECB 

System enqueue ECB 

System function call ECB 

Address of VSAM exception 
exit (DLZOVSEX) 

Address of system password 
(DLZPASS) 

Address of first PPST ID 
assigned (DLZIDLST) 

Address of last active 
PPST ID (DLZIDLST) 

Address of PPST search 
table (DLZIDWRK) 

Address of online message 
module (DLZMMSGT) 

Current entry in incore 
table 

End address+1 of trace 
table 

Start address of trace 
table 

Reserved 

"♦-SCDEXTDS" length of SCD 
extension 



Off* 
(Dec) 


3ets 
(Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





SCDEXTDS 







(0) 


4 


SCDELECB 




4 


(4) 


4 


SCDESECB 




8 


(8) 


4 


SCDEFECB 




12 


(C) 


4 


SCDEVSEX 




16 


(10) 


4 


SCDEPASS 




20 


(14) 


4 


SCDEIDST 




24 


(18) 


4 


SCDEIDNX 




28 


(1C) 


4 


SCDEIDWK 





32 (20) 



36 (24) 



40 (28) 



44 (2C) 



48 (30) 



SCDEMSGT 



SCDETRTB 



SCDETRTE 



SCDETRTS 



SCDEXLEN 



11 .1 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 

Batch usage of the SCD Extension 

(0) 4 SCDEREEN 



4 


(4) 


4 


SCDEABEX 


8 


(8) 


4 


SCDEABSV 


12 


(C) 


4 


SCDEPCEX 


16 


(10) 


4 


SCDETRAN 


20 


(14) 


4 


SCDETRSV 


24 


(18) 


4 


SCDAPSTR 



28 (1C) 



(2) 



The following constants have the same labels as online 

36 (24) 4 

40 (28) 4 
44 (2C) 4 
48 (30) 4 



Description 



Address of utility block 
call entry point 

Address of STXIT ABEND 
routine (DLZAABND) 

Address of STXIT ABEND 
save area 

Address of STXIT PC 
routine (DLZPABND) 

Address of ABTERM 
transient area 

Address of transient save 
area 

Application program start 
address 

Not used in batch 



Current entry in incore 
table 

End address+1 of trace 
table 

Start address of trace 
table 

Reserved 






v... y 



f - 
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Cross Reference 








Hex 


Hex 


Name Offset 


Value 


SCDAPSTR 


18 




SCDEABEX 


4 




SCDEABSV 


8 




SCDEFECB 


8 




SCDEIDNX 


18 




SCDEIDST 


14 




SCDEIDWK 


1C 




SCDELECB 







SCDEMSGT 


20 




SCDEPASS 


10 




SCDEPCEX 


C 




SCDEREEN 







SCDESECB 


4 




SCDETRAN 


10 




SCDETRSV 


14 




SCDETRTB 


24 




SCDETRTE 


28 




SCDETRTS 


2C 




SCDEVSEX 


C 




SCDEXLEN 


30 


34 


SCDEXTDS 
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SDB - Segment Description Block 

DSECT Name: SDB 

The segment description block (SDB) is described as part of the general structure and description of the program 
specification block (PSB). 



Offsets 




Field/Flag 


(Dec) 


(Hex) 


Length 


Name 





(0) 





SDB 





(0) 


8 


SDBSYM 





(0) 


4 


SDBLTP 


4 


(4) 


4 


SDBLTN 


8 


(8) 


1 


SDBLEVEL 


9 


(9) 


1 


SDBORGN 



(Bit) 



10 



(A) 



SDBORGRI 
SDBORGHD 
SDBORGHI 
SDBORGH2 
SDBORGSH 
SDBORGH1 
SDBORGHS 
SDBORGSS 



SDBF3 




SDBSENG 


1 


SDBSENI 


.1 


SDBSENR 


. .1 


SDBSEND 


. . .1 


SDBSENK 


1 . . . 


SDBSENP 





Description 



Segment symbolic name 

Prior segment on logical 
twin chain 

Next segment on logical 
twin chain 

Level of this segment 
(logical) 

Organization of data base 
containing segment 

»X'44 ,M This segment is 
root of index 

"X^O 1 " This segment is in 
a HDAM organization 

"X'lO"' This segment is in 
a HIDAM organization 

"X'OS'" (Not used in DL/I 
DOS/VS) 

"X'OS"' This segment is in 
a simple HISAM organization 

"X f 04 IM This segment is in 
a HISAM organization 

,, X , 02 I " This segment is in 
a HSAM organization 

"X'OI 1 " This segment is in 
a simple HSAM organization 

Call sensitivity 

"X'SO"' Sensitivity is 
read only 

"X^O 1 " Sensitivity is insert 

"X^O'" Sensitivity is replace 

"X f 10 IM Sensitivity is delete 

"X'OS"' Sensitivity is key only 

,, X l 04 in Sensitivity is path only 



1. 



V.. 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



11 



24 



28 



(B) 



(18) 



(1C) 



SDBSENX 

SDBSENL 
SDBF4 
SDBPOSL 
SDBCISP 

SDBALTSQ . 1 . 



SDBALTSC 



.1 



SDBDCHG 



12 


(C) 


1 


SDBPHYCD 


12 


(C) 


4 


SDBDDIR 


16 


(10) 


4 


SDBNSDB 


20 


(14) 


4 


SDBPSDB 


24 


(18) 


1 


SDBKEYLN 



SDBPARA 



SDBDSGA 



.1 



Description 



"X , 02 ,M Sensitivity is 
exclusive 

"X'OI"' Sensitivity is load 

Flags 

"X , 02 ,M Position lost 

"X , 04 ,M Control interval 
split in HISAM KSDS 

"X^O"' Secondary index is 
main processing sequence 

"X^O*" Secondary index 
search fields require 
conversion 

"X' 10'" Reserved 

"X'OI 1 " Temporary switch 
for replace data changed 

Segment code 

DMB directory address 

Next SDB for this PSDB 

Address of PSDB 

Executable key length of 
key field 

Parent SDB (address of PCB 
for root SDB) address of 
prior SDB on 'SDBTARG' 
chain for generated SDBs 
(SDBGEN on in SDBTFLG) 

Address of the DSG section 
of JCB for data set 
containing segment 
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(Dec) (Hex) Length Name (Bit) 



32 (20) 



1 



32 (20) 4 



36 (24) 



37 (25) 1 



SDBTFLG 

SDBPPTSP 11 

SDBPPSP 1 . . . 

SDBPCTSP . 1 . . 

SDBLCPK . . 1 

SDBGEN ... 1 

SDBSPP 1 . . . 

SDBSNX 1 . . 

SDBSLC 1 . 

SDBSLP ... 1 

SDBTARG 

SDBPTNO 

SDBPTDS 

SDBCTR 1 

SDBPTF .1 

SDBPTB . . 1 

SDBPP ... 1 

SDBLTFD 1 . . . 



SDBLTBK 



SDBLP 



SDBHIER 



1 



1 . 



Description 

Logical relationship code 

"X'CO 1 " Segment is 
physical parent of target 
of SDBPARA 

"X'SO 1 " Segment is 
physical parent of SDBPARA 

"X^O 1 " Segment is 
physical child of target 
of SDBPARA 

,, X l 20 ,n (Not used in DL/I 
DOS/VS) 

"X'lO"' This SDB is a 
generated SDB 

"X'OS"' Segment is a 
virtual logical child 

H X , 04 ,n Segment is 
retrieved via index 

"X l 02 l " See PLM for 
detailed explanation 

"X'01 • " Segment is a 
logical child 

Address of the logically 
related segments SDB 

Pointer number of first 
physical pointer 

Physical pointer flag 

M X , 80 ,n This logical 
parent segment has a 
counter 

"X'40 ,M This segment has a 
physical twin forward 
pointer 

"X^O"' This segment has a 
physical twin backward 
pointer 

"X T 10 f " This segment has a 
physical parent pointer 

"X f 08 ,M This segment has a 
logical twin forward 
pointer 

"X , 04 ,n This segment has a 
logical twin backward 
pointer 

,, X , 02 f,f This segment has a 
logical parent pointer 

"X'OI"' (Not used in DL/I . 
DOS/VS) 






..y 



V. 
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Offsets 



Field/Flag 



C 



(Dec) (Hex) Length Name 

38 (26) 1 SDBPCF 

39 (27) 1 SDBPCB 



Flag Code 
(Bit) 



40 (28) 



56 (38) 



56 (38) 



SDBKEYFD 



44 (2C) 4 SDBPOSP 
48 (30) 4 SDBPOSC 

52 (34) 4 SDBPOSN 



SDBXFL 
SDBXPRES 



SDBFLS 

SDBXPANS 

SDBEND 

SDBLEN 



.1 



.11 11 , 
.11 11 . 



Description 

Pointer number in parent 
to first occurrence of this 
segment type 

Pointer number in parent 
to last occurrence of this 
segment type 

The address within 

DBPCBKFD for key this 

segment in generated SDB 

for logical destination 

parent: 

Byte = Physical segment 

code of logical 

child 
Bytes 1-3 = Logical child's 

PSDB address in 
In generated SDB for 
for physical destination 
parent: 
Byte = Physical segment 

code of virtual 

logical child 
Bytes 1-3 = Virtual logical 

child's PSDB 

address 

Previous position 

Current position X'80' in 
high-order byte = position 
lost, in conjunction with 
SDBPOSL in SDBF4 

Next position (current 
position in generated 
SDBs) 

SDB expansion flag 

"X'OV" SDB expansion for 
secondary index processing 
sequence is present 
(secondary index is main 
processing sequence) 

"X'02 ,n Segment has field 
level sensitivity 

SDB expansion address 

"*" end of SDB entry 

"SDBEND-SDBSYM" length of 
each SDB 
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Cross Reference 





Hex 


Hex 




Hex 


Hex 


Name 


Offset 


Value 


Name 


Offset 


Value 


SDB 







SDBPTNO 


24 




SDBALTSC 


B 


20 


SDBSEND 


A 


10 


SDBALTSQ 


B 


40 


SDBSENG 


A 


80 


SDBCISP 


B 


04 


SDBSENI 


A 


40 


SDBCTR 


25 


80 


SDBSENK 


A 


08 


SDBDCHG 


B 


01 


SDBSENL 


A 


01 


SDBDDIR 


C 




SDBSENP 


A 


04 


SDBDSGA 


1C 




SDBSENR 


A 


20 


SDBEND 


38 


3C 


SDBSENX 


A 


02 


SDBFLS 


38 


02 


SDBSLC 


20 


02 


SDBF3 


A 




SDBSLP 


20 


01 


SDBF4 


B 




SDBSNX 


20 


04 


SDBGEN 


20 


10 


SDBSPP 


20 


08 


SDBHIER 


25 


01 


SDBSYM 







SDBKEYFD 


28 




SDBTARG 


20 




SDBKEYLN 


18 




SDBTFLG 


20 




SDBLCPK 


20 


20 


SDBXFL 


38 




SDBLEN 


38 


3C 


SDBXPANS 


38 




SDBLEVEL 


8 




SDBXPRES 


38 


01 


SDBLP 


25 


02 








SDBLTBK 


25 


04 








SDBLTFD 


25 


08 








SDBLTN 


4 










SDBLTP 













SDBNSDB 


10 










SDBORGHD 


9 


20 








SDBORGHI 


9 


10 








SDBORGHS 


9 


02 








SDBORGH1 


9 


04 








SDBORGH2 


9 


08 








SDBORGN 


9 










SDBORGRI 


9 


44 








SDBORGSH 


9 


05 








SDBORGSS 


9 


01 








SDBPARA 


18 










SDBPCB 


27 










SDBPCF 


26 










SDBPCTSP 


20 


40 








SDBPHYCD 


C 










SDBPOSC 


30 










SDBPOSL 


B 


02 








SDBPOSN 


34 










SDBPOSP 


2C 










SDBPP 


25 


10 








SDBPPSP 


20 


80 








SDBPPTSP 


20 


CO 








SDBPSDB 


14 










SDBPTB 


25 


20 








SDBPTDS 


25 










SDBPTF 


25 


40 









1 



V. 



o 
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SEC - Secondary List 
DSECT Name: DMBSEC 



The secondary list is described as part of the general structure and description of the DMB. The labels in SEC vary 
with the type of secondary index entry. See the field description listed by code type in the record layout. 



Offsets 
(Dec) (Hex) Length 



Field/Flag Flag Code 



Name 



(Bit) 






(0) 





DMBSEC 







(0) 


1 


DMBSCDE 
DMBSLP 

DMBSLC 

DMBSRCH 

DMBSLCF 

DMBSLCPR 
DMBSOURC 

DMBSUBSQ 

DMBEXTRN 

DMBINDXD 


1 

1 . 

1 . . 

1 . . . 

. . .1 . . .1 
. .1 

. .1 . .1 . . 

.1 

.1 . . .1 . . 



DMBNXISS 



DMBNXXDS 



.11 



11 



DMBSND 



Description 



Code byte 

"X'OI 1 " Secondary list 
describes a logical parent 

"X , 02 ,M Secondary list 
describes a logical child 

"X'OV Secondary list 
describes index search 
field(s) 

"X'OS"' Secondary list 
describes logical twin 
sequence field 

"X'lV" (Not used in DL/I 
DOS/VS) 

M X'20 ,M Secondary list 
describes index data 
field(s) 

,, X l 24 in Secondary list 
describes index SUBSEQ 
field(s) 

"X^O"' Secondary list 
describes user index exit 
routine 

"X f 44 fM Secondary list 
describes index target 
segment as seen from index 
pointer segment 

"X^O 1 " Secondary list 
describes index 
relationship as seen from 
index source segment 

"X'64 9 " Secondary list 
describes index 
relationship as seen from 
index target segment, this 
list is not present if ISS 
= target 

"X'80 ,M Last entry in 
secondary list 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



The following fields are listed by code type 
Code 01 - describes logical parent 



CD 



2 

4 



8 



(2) 
(4) 

(4) 

(8) 



8 



DMBSFLDS 

DMBSFLG 

DMBVKY 

DMBPKY 

DMBSFD 
DMBSECSC 

DMBSECDB 

DMBSECNM 



111 . .1.1 



11.1 .111 



Code 02 - describes logical child 

1 ( 1 ) ■ 1 DMBSLCIR 



(2) 



DMBSLCFL 



Code 04 - describes index SRCH fields 

1 (1) 1 DMBFDFLG(5) 

DMBSYM1 
DMBSYMN1 

DMBSYSFD 



(6) 



. . 1 



1 



DMBFDUSE 1 

DMBFDONE ... 1 

DMBFDOFF(5) 



Description 



"C'V" Key of logical 
parent is virtual 

"C'P"' (Not used in DL/I 
DOS/VS) 

Logical parent key length 

Segment code of referenced 
segment 

DDIR address of referenced 
data base 

Segment name of referenced 
segment 



Logical twin sequence 
insert rule 

Number of first and last 
logical child pointers in 
logical parent prefix 
remainder of fields same 
as code 01 



Five one-byte flags 
associated with the 
following FDB offsets 

"X , 08 ,M First part of 
symbolic pointer 

"X'04 1 " Not first part of 
symbolic pointer (middle 
or last) 

,, X'02 ,M This slot for 
system related field 

,, X , 01 ,M This slot in use 

"X' 10'" This entry 
processed by block builder 

Offset to FDB from first 
FDB of ISS if this slot is 
in use, otherwise zero 



,<r 



s 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 

Code 08 - describes logical twin sequence field 

1 (1) 1 DMBSFPSC 



2 


(2) 


8 


DMBSFNAM 


10 


(A) 


2 


DMBSFOFF 


12 


(C) 


1 


DMBSFCEN 


13 


(D) 


1 


DMBSFLEN 


14 


(E) 


2 


DMBXSOFF 



Code 20 - describes DDATE field 



Code 24 - describes SUBSEQ field 



Code 40 - describes index exit routine 



Description 



Virtual logical child 
physical segment code 

FDB field name 

Offset to field in segment 

Code byte (same as 
FDBDCENF in FDB) 

Executable field length 

Offset to field in indexed 
segment 



Same fields as code 04 



Same fields as code 04 



C 



1 


(1) 


1 


DMBSFLG1 




Flag byte 








DMBSNULL 


1 


"X'OI 1 " Null field present 








DMBEXIT 


1 . 


"X'02 f " Exit routine 
present 








DMBNLXIT 


11 


»X'03'" 








DMBEXLOD 


. . . .1 . . 


,, X I 04 fM Exit routine has 
been loaded 


2 


(2) 


2 






Reserved 


4 


(4) 


1 


DMBNBYTE 




If index field equals this 
byte bypass indexing 


4 


(4) 


4 


DMBXITAD 




Address of index 
maintenance 
parameter CSECT 


8 


(8) 


8 


DMBSUPRT 




Suppression routine name 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 

Code 44 - describes index target segment 

1 ( 1 ) 1 DMBSKYLN 

2 (2) 2 DMBSOFF 



Description 



12 



(4) 


1 


DMBXDSSC 




(4) 


4 


DMBXDSDB 




(8) 


1 


DMBXDSC 




(8) 


4 


DMBXPSDB 




(C) 


1 


DMBXDFLG 








DMBXDLST 


1 . 






~^\ 








DMBXDSYM 


.1 



DMBXDSSS . . 1 









DMBXDSPC 


... 1 








DMBXDCON 


1 . . . 








DMBXDSSQ 


1 . . 








DMBXDSOR 


.... . .1 . 








DMBXDEQ 


1 


13 


(D) 


1 


DMBXDPAD 




14 


(E) 


2 


DMBSYMOF 





Executable length of key 

Offset to PSDB address 
pointer of index target 
segment 

Segment code of index 
target segment 

DDIR address of index 
target segment 

Segment code of index 
target segment 

PSDB address of index 
target segment 

Code byte from associated 
FDB 

M X f 80 ,M Last FDB in list 

n X f 40 fM Index pointer is 
symbolic 

"X^O"' Pointer contained 
in source/subseq data 

"XMO"' Special FDB for 
secondary index 

"X'OS"' Constant present 

,, X f 04 l " SUBSEQ present 

"X'C^"' (Not used in DL/I 
DOS/VS) 

"X'01 '" XDS = ISS 

Padding constant 

Offset to symbolic pointer 
indexing segment 



V 



.4~ 



ff' 



Code 60 - describes index from ISS 

1 (D 3 

4 (4) 1 DMBXNSSC 



(4) 



DMBXNSDB 



Same as code 44 

Segment code of index 
pointer segment 

DDIR address of index 
remaining fields same as 
code 44 
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^\ ( 
^^i>' 



Code 64 - describes index from index target 

1 (D 1 

2 (2) 2 DMBISSOF 



4 (4) 4 

8 (8) 1 

8 (8) 4 

12 (C) 4 



DMBISSSC 



DMBIPSDB 



DMBSECND 



DMBSECLN 



. . .1 
. . .1 



Same as code 44 

Offset to code 60 from 
from start of ISS 
secondary list 

Same as code 60 

Segment code of index 
source segment 

PSDB address of index 
source segment 

Same as code 44 

11 *" End of each secondary 
list entry 

"DMBSECND-DMBSEC" length 
of each secondary list 
entry 
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Cross Reference 



Name 


Hex 
Offset 


Hex 
Value 


Name 


Hex 
Offset 


Hex 

Value 


DMBEXIT 


1 


02 


DMBVKY 


1 


E5 


DMBEXLOD 


1 


04 


DMBXDCON 


C 


08 


DMBEXTRN 





40 


DMBXDEQ 


C 


01 


DMBFDFLG 


1 




DMBXDFLG 


C 




DMBFDOFF 


6 




DMBXDLST 


C 


80 


DMBFDONE 


1 


10 


DMBXDPAD 


D 




DMBFDUSE 


1 


01 


DMBXDSC 


8 




DMBINDXD 





44 


DMBXDSDB 


4 




DMBIPSDB 


8 




DMBXDSOR 


C 


02 


DMBISSOF 


2 




DMBXDSPC 


C 


10 


DMBISSSC 


8 




DMBXDSSC 


4 




DMBNBYTE 


4 




DMBXDSSQ 


C 


04 


DMBNLXIT 


1 


03 


DMBXDSSS 


C 


20 


DMBNXISS 





60 


N DMBXDSYM 


C 


40 


DMBNXXDS 





64 


DMBXITAD 


4 




DMBPKY 


1 


D7 


DMBXNSDB 


4 




DMBSCDE 







DMBXNSSC 


4 




DMBSEC 







DMBXPSDB 


8 




DMBSECDB 


4 




DMBXSOFF 


E 




DMBSECLN 


C 


10 








DMBSECND 


C 


10 








DMBSECNM 


8 










DMBSECSC 


4 










DMBSFCEN 


C 










DMBSFD 


2 










DMBSFLDS 





01 








DMBSFLEN 


D 










DMBSFLG 


1 










DMBSFLG1 


1 










DMBSFNAM 


2 










DMBSFOFF 


A 










DMBSFPSC 


1 










DMBSKYLN 


1 










DMBSLC 





02 








DMBSLCF 





08 








DMBSLCFL 


2 










DMBSLCIR 


1 










DMBSLCPR 





11 








DMBSLP 





01 








DMBSND 





80 








DMBSNULL 


1 


01 








DMBSOFF 


2 










DMBSOURC 





20 








DMBSRCH 





04 








DMBSUBSQ 





24 








DMBSUPRT 


8 










DMBSYMN1 


1 


04 








DMBSYMOF 


E 










DMBSYM1 


1 


08 








DMBSYSFD 


1 


02 









if 



v.. 



4 N 



v. 
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SGT - Segment Table 
DSECT Name: DLZPRSGT 



( 



c 



This DSECT describes the segments used by the partial reorganization process. It is built during the DBD analysis 
phase and is used by all subsequent phases in PARTI and PART2. Its address is held in the common area field 
(COMASGT). Associated with the SGT is the segment extension table (SGX). 



Description 



Segment name 

Old RBA of last segment 
un/reloaded 

New RBA of last segment 
reloaded 

Statistical counter 

Statistical counter 

Statistical counter 

Statistical counter 

Statistical counter 

Statistical counter 

Offset to DBT entry for 
this segments DB 

Segment key start POS 
roots only 

Segment key length roots only 

Segment prefix length 

Segment data length maximum 
if variable 

Offset in ACT to first 
reload action 

Offset in ACT to first 
scan action 

Spare offset field 

Offset in SGT to first 
physical child of this 

Offset in SGT to next 
SESIBLING segment 

DL/I segment code 

DL/I data set code 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





SGT 







(0) 


4 


SGTSTART 







(0) 


8 


SGTCName 




8 


(8) 


4 


SGTROLD 




12 


(C) 


4 


SGTRNEW 




16 


(10) 


4 


SGTFCNT1 




20 


(14) 


4 


SGTFCNT2 




24 


(18) 


4 


SGTFCNT3 




28 


(1C) 


4 


SGTFCNT4 




32 


(20) 


4 


SGTFCNT5 




36 


(24) 


4 


SGTFCNT6 




40 


(28) 


2 


SGTODBT 




42 


(2A) 


2 


SGTOKEY 




44 


(2C) 


2 


SGTHKLEN 




46 


(2E) 


2 


SGTHPLEN 




48 


(30) 


2 


SGTHDLEN 




50 


(32) 


2 


SGTORACT 




52 


(34) 


2 


SGTOSACT 




54 


(36) 


2 






56 


(38) 


2 


SGTOPCF 





58 

60 
61 



(3A) 

(3C) 
(3D) 



SGTOSIBL 

SGTCSC 
SGTCDS 
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Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 


Description 


62 (3E) 


1 


SGTCLEV 






DL/I level code 


63 (3F) 


1 








Reserved 


64 (40) 


1 


SGTGATR1 






Segment physical 
attributes 



65 (41) 



SGTQMOVE 1 

SGTQHIDR .1 

SGTQPP . . 1 . 



. .1 

. . . 1 . . . 
. . . .1 . 
1 



SGTQPTB 
SGTQPCL 
SGTQHIER 
SGTQHB 

SGTQVRLN 

SGTGATR2 
SGTQLC 

SGTQUNID 

SGTQVPR 
SGTQPPR 
SGTQSYM 

SGTQDRCT 

SGTQLTB 1 . 

SGTQLCL . . 1 



.1 . 



"X^O 1 " Segment to be 
moved for reorganization 

"X f 40 IM Segment is HIDAM 
root 

"X^O"' Segment has PP 
pointer 

"XMO*" Segment has PTB 
pointer 

"X ! 08 f " Segments parent 
has PCL pointer to this 

"X , 04 IM Segment has 
hierarchic pointers 

"X , 02 IM Segment has 
hierarchic backward 
pointer 

"X'01 '" Segment is 
variable length 

Segment logical attributes 

"X'SO*" Segment is a 
logical child 

"X'40 ,H Segment is 
logical child in 
unidirectional relation 

"X 1 20' " Segment has 
virtual pair 

"X* 10 f " Segment has 
physical pair 

,, X'08 ,M Segment has only 
symbolic pointer to 
logical parent 

"X f 04 IM Segment has direct 
pointer to logical parent 

M X f 02 f " Segment has LTB 
pointer 

"X'OI 1 " Segments logical 
parent has LCL pointer 
to this 
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Offsets 
(Dec) (Hex) Length 



Field/Flag Flag Code 



Name 



66 



(42) 



C 



67 



(43) 



1 


SGTGATR3 






SGTQNOLT 


1 . 




SGTQLP 


.1 




SGTQXDRT 






SGTUNIQ 






SGTQXSX 






SGTQPTF 




1 


SGTGATR4 






SGTQKSEN 


1. 




SGTQDSEN 


.1 




SGTQNPRO 






SGTQSOPT 






SGTQSCAN 





(Bit) 



.1 



Description 

Segment logical and index 
attributes 

"X^O 1 " Virtually paired 
with no LTWIN pointers 

"X'40 1 " Segment is a 
logical parent 

,, X , 08 ,H Segment is index 
segment with direct pointer 

"X'04 ,n Segment is in a 
unique index 

M X , 02 ,M Segment is index 
segment with SX field 

"X f 0r" Segment has PTF 
pointer 

Segment PSB attributes 

"X'SO"' Key only 
sensitivity required 

"X^O'" Data sensitivity 
required 

"X^O"' Segment not 
processed used to peach PC 

,, X , 02 ,M Scan is option for 
this segment 

"X'OI 1 " This segment will 
be scanned 



C 
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Segment Extension Table 
This part of the DSECT is for additional information about the 
segments used by the partial re-organization process. It contains 
offsets needed to create the action table (ACT). It is created 
during the DBD analysis phase. 



1 



68 


(44) 


2 


SGXOCTR 


70 


(46) 


2 


SGXOPTF 


72 


(48) 


2 


SGXOPTB 


74 


(4A) 


2 


SGXOPP 


76 


(4C) 


2 


SGXOLTF 


78 


(4E) 


2 


SGXOLTB 


80 


(50) 


2 


SGXOLP 


82 


(52) 


2 


SGXOHIER 


84 


(54) 


2 


SGXOHB 


86 


(56) 


2 


SGXOPCF 


88 


(58) 


2 


SGXOLCF 


90 


(5A) 


2 


SGXOSPP 


92 


(5C) 


2 


SGXOSLP 


94 


(5E) 


2 


SGXOPAIR 


96 


(60) 


2 


SGXOTARG 


98 


(62) 


2 


SGXOSRCE 


00 


(64) 


2 


SGXOPCWK 


02 


(66) 


2 


SGXOLCWK 


04 


(68) 


4 


SGXFBLK 
SGTLLEN 



.11 . 11 



Offset in prefix of log 
rel counter 

Offset in prefix of PTF 
pointer 

Offset in prefix of PTB 
pointer 

Offset in prefix of PP 
pointer 

Offset in prefix of LTF 
pointer 

Offset in prefix of LTB 
pointer 

Offset in prefix of LP 
pointer 

Offset in prefix of hier 
pointer 

Offset in prefix of hier 
back pointer 

Offset in segments PP of 
PCF to this segment 

Offset in segments logical 
parent of LCF to this 
segment 

Offset in SGT of physical 
parent 

Offset in SGT of logical 
parent 

Offset in SGT of physical 
pair 

Offset in SGT of target of 
this segment 

Offset in SGT of source of 
this segment 

Work area to hold offset 
to first physical child 
pointer 

Work area to hold offset 
to first logical child 
pointer 

Last block un/reloaded 
used in PART2 

"♦-SGTSTART" length of a 
SGT ENTRY 



V. 






(v. 
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C 



C 



Cross Reference 












Hex 


Hex 




Hex Hex 


Name Offset 


Value 


Name 


Offset Value 


SGT 







SGTQXSX 


42 02 


SGTCDS 


3D 




SGTRNEW 


C 


SGTCLEV 


3E 




SGTROLD 


8 


SGTCName 







SGTSTART 





SGTCSC 


3C 




SGTUNIQ 


42 04 


SGTFCNT1 


10 




SGXFBLK 


68 


SGTFCNT2 


14 




SGXOCTR 


44 


SGTFCNT3 


18 




SGXOHB 


54 


SGTFCNT4 


1C 




SGXOHIER 


52 


SGTFCNT5 


20 




SGXOLCF 


58 


SGTFCNT6 


24 




SGXOLCWK 


66 


SGTGATR1 


40 




SGXOLP 


50 


SGTGATR2 


41 




SGXOLTB 


4E 


SGTGATR3 


42 




SGXOLTF 


4C 


SGTGATR4 


43 




SGXOPAIR 


5E 


SGTHDLEN 


30 




SGXOPCF 


56 


SGTHKLEN 


2C 




SGXOPCWK 


64 


SGTHPLEN 


2E 




SGXOPP 


4A 


SGTLLEN 


68 


6C 


SGXOPTB 


48 


SGTODBT 


28 




SGXOPTF 


46 


SGTOKEY 


2A 




SGXOSLP 


5C 


SGTOPCF 


38 




SGXOSPP 


5A 


SGTORACT 


32 




SGXOSRCE 


62 


SGTOSACT 


34 




SGXOTARG 


60 


SGTOSIBL 


3A 








SGTQDRCT 


41 


04 






SGTQDSEN 


43 


40 






SGTQHB 


40 


02 






SGTQHIDR 


40 


40 






SGTQHIER 


40 


04 






SGTQKSEN 


43 


80 






SGTQLC 


41 


80 






SGTQLCL 


41 


01 






SGTQLP 


42 


40 






SGTQLTB 


41 


02 






SGTQMOVE 


40 


80 






SGTQNOLT 


42 


80 






SGTQNPRO 


43 


20 






SGTQPCL 


40 


08 






SGTQPP 


40 


20 






SGTQPPR 


41 


10 






SGTQPTB 


40 


10 






SGTQPTF 


42 


01 






SGTQSCAN 


43 


01 






SGTQSOPT 


43 


02 






SGTQSYM 


41 


08 






SGTQUNID 


41 


40 






SGTQVPR 


41 


20 






SGTQVRLN 


40 


01 






SGTQXDRT 


42 


08 
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SQLID - Userid Control Block 

DSECT Name: DLZSQLID 

This USERID control block is used to pass data from DLZUACBO to DLZDCBLO in the Application Control Block 
Maintenance Utility (ACBGEN). This control block contains information when the 'USERID' parameter is used on 
the BUILD statement. 



f 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





USERIDCB 







(0) 


1 


USRIDFLG 
PROUSRID 


1 


1 


(1) 


8 


PASSWORD 




12 


(C) 


4 


IOAREAAD 




16 


(10) 


4 


DLBDPADD 




20 


(14) 


4 


DLBPPADD 
USERIDLN 


...1 1... 



Description 

USERID control block 

Flags byte for USERID 
parameter 

"X'OV" USERID specified 
on build 

Password for SQL/DS 
connect 

Address of SQL IOAREA 

Address of DLZDLBDP module 

Address of DLZDLBPP module 

"♦-USERIDCB" length of 
USERID control block 



v_y 



Cross Reference 










Hex 


Hex 


Name 


Offset 


Value 


DLBDPADD 




10 




DLBPPADD 




14 




IOAREAAD 




C 




PASSWORD 




1 




PROUSRID 







01 


USERIDCB 









USERIDLN 




14 


18 


USRIDFLG 










1> 



V 



y 



*S 
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SSA - Segment Search Argument 
DSECT Name: DLZSSA 



This DSECT describes the DL/I HLPI Segment Search Argument fields. It includes the command codes and 
qualification arguments. It points to the SSAX DSECT for the length of the SSA. 



Offsets 
(Dec) (Hex) Length 

(0) 







(0) 



Field/Flag Flag Code 
Name (Bit) 

SSAXPTRO 



SSAXPTR 



Description 

The following field is not 
mapped by DLZSSA DSECT 

Pointer that points to 
SSAX, always placed before 
SSA 



C 






(0) 





SSA 





(0) 


8 


SSASEGNM 


8 


(8) 


1 


SSAASTRK 


9 


(9) 


4 


SSACMND 


13 


(D) 


1 


SSALPARN 
SSAQS 



111 . 



Segment name 

Asterisk (*) or blank if 
not qualified 

Command codes 

Left parenthesis 

"*" SSA qualification 
sections 



Note: 

The next four fields are repeated for each 
qualification section of a boolean SSA. The SSABO 
field will have a right parenthesis in the last (or 
the only) qualification section. 



14 
22 



(E) 
(16) 



SSAFLDNM 
SSARO 



Field name 
Relational operators 



Note: 

Length of SSARO field is maintained in the equate 
symbol HLPIOPRL in DSECT DLZHLPIL. 



24 
279 



(18) 
(117) 



255 
1 



SSAKEYFL 
SSABO 



The actual position of SSABO depends on the length 
of the SSAKEYFL field. 



Maximum key field value 

Boolean operator or right 
parenthesis 



j#**X 



Note: 

Length of SSABO field is maintained in the equate 

symbol HLPIOPBL in DSECT DLZHLPIL 

SSAQSLN 
SSALGTH 



"*-SSAQS" length of Q.S. 
section 

"*-SSA" length of SSA 
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Cross Reference 




Name 


Hex 
Offset 


Hex 
Value 


SSA 







SSAASTRK 


8 




SSABO 


117 




SSACMND 


9 




SSAFLDNM 


E 




SSAKEYFL 


18 




SSALGTH 


117 


0118 


SSALPARN 


D 




SSAQS 


D 


0E 


SSAQSLN 


117 


010A 


SSARO 


16 




SSASEGNM 







SSAXPTR 







SSAXPTRO 











c 



V. 
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Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





SSAP 







(0) 


4 









(0) 


8 


SSAPSEGM 




8 


(8) 


1 


SSAPFLAG 
SSAPVARL 

SSAPDATT 


1 

.1 



SSAP - Segment Search Appendage 

DSECT Name: DLZSSAP 

This DSECT describes the fields contained in the DL/I HLPI Segment Search Argument get path call appendage. 

Description 



Segment name 

SSA flag 

"X^O 1 " Variable length 
segment 

"X^O"' Data to be 
transferred 

"X^O"' Segment already 
processed 

Address of IOAREA for this 
segment 

Length of the IOAREA for 
this segment 

Offset to length of the 
destination parent 

"*-SSAPSEGM M length of SSA 
appendage 

"SSAPLEN* 15" length for 
required number of SSA 
appendages 

"*-SSAPFlag" length of 
appendage information 



(9) 



12 (C) 



14 (E) 



SSAPPROC 



SSAPIOA 



SSAPLIOA 



SSAPSGOF 



SSAPLEN 



SSAPSTOR 



. .1 . . 



...1 



1111 . 







SSAAPLN 


Cross Reference 






Hex 
Name Offset 


Hex 
Value 


SSAAPLN 


E 


08 


SSAP 







SSAPDATT 


8 


40 


SSAPFlag 


8 




SSAPIOA 


9 




SSAPLEN 


E 


10 


SSAPLIOA 


C 




SSAPPROC 


8 


20 


SSAPSEGM 







SSAPSGOF 


E 




SSAPSTOR 


E 


F0 


SSAPVARL 


8 


80 
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SSAX - Segment Search Argument Extension 

DSECT Name: DLZSSAX 

This DSECT describes the DL/I HLPI Segment Search Argument extension fields. It includes the SSA length, the 
I/O area address and length, and several flags for processing. This is an extension to the SSA DSECT to allow 
multiple Boolean qualification conditions and any further expansion. 






Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 


Description 


(0) 





SSAX 






(0) 


1 


SSAXFlag 




SSA flag 






SSAXVARL 


1 


"X^O"' Variable len< 
segment 






SSAXDATT 


.1 


"X^O 1 " Data to be 



(1) 

(4) 
(6) 
(8) 



10 



(A) 



SSAXPROC 



SSAXIOA 



SSAXLIOA 



SSAXSGOF 



SSACLEN 



SSAMLEN 



SSAXSTOR 









SSAXLEN 


Cross Reference 










Hex 


Hex 


Name 


Offset 


Value. 


SSACLEN 




8 




SSAMLEN 




8 


0130 


SSAX 









SSAXDATT 







40 


SSAXFlag 









SSAXIOA 




1 




SSAXLEN 




A 


OC 


SSAXLIOA 




4 




SSAXPROC 







20 


SSAXSGOF 




6 




SSAXSTOR 




A 




SSAXVARL 







80 



11 , 



transferred 

"X^O"' Segment already 
processed 

Address of IOAREA for this 
segment 

Length of the IOAREA for 
this segment 

Offset to length of the 
destination parent 

SSA length, less than or 
equal to SSAXSTOR 

"304" maximum length for 
non-HLPI SSA 

Length of storage acquired 
for SSA 

"♦-SSAX" length of SSAX 



,4 ~ - 

li 



C 
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STA - Statistics Table 
DSECT Name: DLZPRSTA 



This layout describes the fields used for gathering statistics by the partial reorganization utility. The fields are 
initialized and incremented by UNLOAD and RELOAD. The data is referenced by the statistics writer when 
formatting statistical reports. 



Description 



Block count 

Counters for blocks 
1 to 40 

Counter for blocks 
over 40 

Maximum number blocks 
this range 

Number blocks over 40 

10 pairs of low-high 
block numbers 

For reload 

HDAM roots in overflow 



Offs 
(Dec) 


;ets 
(Hex) 


Length 


Field/Flag Flag Code 
Name (Bit) 





(0) 





SGT 





(0) 


4 







(0) 


2 


STBLCT 


2 


(2) 


80 


STBLBK40 


82 


(52) 


2 


STBLBK41 


84 


(54) 


2 


STMXBL 


88 


(58) 


4 


STHASHS 


92 


(5C) 


4 


STLOHICT (20) 


172 


(AC) 


4 


STROV (10) 


212 


(D4) 


4 


STHDOV 


216 


(D8) 


2 


STNDCNT 





(0) 


216 


STATCNTR 


216 


(D8) 


2 


STRG 


Cross Reference 






Name 


Hex Hex 
Offset Value 


SGT 









STATCNTR 







STBLBK40 


2 




STBLBK41 


52 




STBLCT 









STHASHS 




58 




STHDOV 




D4 




STLOHICT 


5C 




STMXBL 




54 




STNDCNT 


i 


D8 




STRG 




D8 




STROV 




AC 





Length statistics counters 

Range counter for 
statistics 
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SUIB - User Interface Block 

DSECT Name: DLZUIB 

The user section of this control block is used by extended DL/I call interface support (along with CICS/VS 
high-level language support). This section contains scheduling and system call status information returned to the 
user. (Prior to Version 1.4, this information was returned to the user in the TCA.) A system section of the UIB 
follows the user section. It is used by DL/I as task-local storage. Unlike PST storage, UIB storage is not released at 
scheduling termination. 



j 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 


Description 





(0) 







DLZUIB 











(0) 


4 




UIB 






Extended call user interface 
block 





(0) 


4 




UIBPCBAL 






PCB address list 


4 


(4) 


2 




UIBRCODE 






DL/I return codes 


4 


(4) 


1 




UIBFCTR 






Return code 


5 


(5) 


1 




UIBDLTR 






Additional information 


6 


(6) 


1 




(2) 






Reserved 


8 


(8) 


4 










Length is fullword 
multiple 










UIBLEN 





1 . . . 


"♦-UIB" length of UIB 


Cross Reference 














Name 


Hex 
Offset 


Hex 
Value 








DLZUIB 

UIB 

UIBDLTR 

UIBFCTR 

UIBLEN 

UIBPCBAL 

UIBRCODE 




5 
4 
8 

4 




08 









v. 






m ^ 

XJ 
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TSQE - Temporary Storage Queue Entry 

DSECT Name: DLZTSQE 

The DLZTSQE macro maps the contents of the entries in the CICS/VS temporary storage queue used by the MPS 
Restart facility. The name of this temporary storage queue is "DLZTSQOO". It is used to maintain the checkpoint 
IDs of the combined DL/I-VSE checkpoints taken by MPS batch jobs. There is one non-blank entry for each MPS 
batch job currently using the MPS Restart facility and also for each MPS batch job which abnormally ended after 
having taken a combined DL/I-VSE checkpoint. 



Offsets 



Field/Flag Flag Code 
(Bit) 



(Dec) i 


(Hex) 


Length Name 





(0) 





DLZTSQE 





(0) 


1 


TSQFlag 
TSQACTV 1 1 
TSQBLANK . 1 


1 


(1) 


5 


TSQRSRVD 


6 


(6) 


4 


TSQCPID 


10 


(A) 


26 


TSQJBID 


10 


(A) 


8 


TSQJBNM 


18 i 


(12) 


2 


TSQPTID 


20 i 


(14) 


8 


TSQDATE 


28 i 


(1C) 


8 


TSQTIME 
TSQLEN 


Cross Reference 






Name 


Off 


Hex 
set 


Hex 
Value 


DLZTSQE 

TSQACTV 

TSQBLANK 

TSQCPID 

TSQDATE 

TSQFlag 

TSQJBID 

TSQJBNM 

TSQLEN 

TSQPTID 

TSQRSRVD 

TSQTIME 





6 

14 

A 
A 

1C 

12 
1 

1C 


C1 
40 

24 



Description 

Flag byte 

"C'A"' TSQ entry active 

"C '" TSQ entry initial 
character 

Reserved for future use 

Checkpoint ID 

Job ID next 4 fields 

Job name 

Partition ID 

Job start date 

Job start time 

"*-DLZTSQE" length of TSQ 
entry 
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DLZTWAB - Transaction Work Area 

MACRO Name: DLZTWAB 

The DLZTWAB macro provides the mapping for the batch partition controller's transaction work area. The 
information is used for communication with: 

• DL/I task termination 

• CICS/VS 

• Batch partition 

• Scheduling MPS batch jobs 

• Online message module 



c 



Offsets 

(Dec) (Hex) Length 

(0) 

(0) 4 

(0) 1 



1 (D 3 

4 (4) 1 

5 (5) 3 



Field/Flag Flag Code 
Name (Bit) 

DLZTWAB 

TWABPC 

TWAMPSFG 

TWABPCOK 1 

TWAEOJSW .1 

TWAMPCPT 
TWABPC ID 

TWAMPCE 



Description 



BPC flag byte 

"X^O 1 " BPC abnormal 
termination processing 
completed 

"X^O 1 " EOJ processing 
reached for MPS batch 
partition 

Address of MPC partition table 

Batch partition XECB 
identifier 

Address of specific MPC 
partition table entry 






The following is the BPC's CICS/VS WAITM ECB list^ 
delimiter and XECB. 



8 


(8) 


4 


TWAWLIST 


8 


(8) 


4 


TWAXCB2 


12 


(C) 


4 


TWAXCB3 


16 


(10) 


4 


TWAXCBDL 


20 


(14) 


4 


TWAXCBN2 



Pointer to BPC's XECB 
(DLZXCBN2) 

Pointer to ABEND XECB 
(DLZXCBN3) 

ECB list delimiter 

XECB for BPC 






The following fields are used for communication with the 
batch partition. 



24 (18) 



32 (20) 



8 



TWAXCBN1 



TWAN1PTR 



XECBNSME for batch 
initialization 

XECBTAB table entry 
address for batch 
initializations 
XECB (DLZXCBN1) 



\j 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Lengtfr Name (Bit) 

The following fields are used for the BPCs DL/I scheduling 
CALL parameter list and the PSBNAME to be scheduled. 



Description 



36 


(24) 


4 


TWASCHDC 


36 


(24) 


4 


TWAPARMC 


40 


(28) 


4 


TWACALL 


44 


(2C) 


4 


TWAPSBN 


48 


(30) 


7 


TWAPSBNM 


55 


(37) 


1 


TWAPSBDL 



The following field contains the SCD address. 

56 (38) 4 TWABPSCD 

The following fields are used as an I/O buffer during 
temporary storage queue (TSQ) processing for MPS Restart. 



60 


(3C) 


4 


TWATSBUF 


60 


(3C) 


4 


TWATSLEN 


64 


(40) 


36 


TWATSQE 
TWATSQBL 



1 . 1 



Batch partition controller register save area 

100 (64) 72 TWABPCSV 



Pointer to parameter count 

Pointer to call-function 

Pointer to PSB-name 

PSB-name 

PSB-name delimiter 

SCD address 

TSQ entry I/O buffer 

4 byte length field 

TSQ entry 

"♦-TWATSBUF" TSQ buffer 
length 

BPC register save area 



The following are the parameter list pointers, parameters and message fillers passed to the 
DL/I on-line message module DLZERMSG for all BPC messages. 



172 


(AC) 


4 


TWAMSG 


172 


(AC) 


4 


TWAMSGNO 


176 


(B0) 


4 


TWAMSGID 



180 



(B4) 



TWAMSG0 1 



Message number pointer for 
all BPC messages 

For messages DLZ082I, 
DLZ084I, DLZ103I, DLZ123I, 
pointer to the partition 
ID; for message DLZ104I, 
pointer to the BPC module 
ID; for message DLZ127I, 
pointer to the job name 

For message DLZ082I and 

DLZ084I module name 

pointer; for message 

DLZ103I the termination 

condition pointer and 

delimiter; for message 

DLZ104I the CICS/VS abend 

code pointer and delimiter for 

message DLZ123I, pointer to 

the routine name; for message 

DLZ127I, pointer to the partion ID 
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Offsets Field/Flag Flag Code 

(Dec) (Hex) Length Name (Bit) 



184 (B8) 



188 (BC) 



TWAMSG02 



TWAMSG03 



Description 

For message DLZ082I and 
pointer; for message 
DLZ104I the PSW pointer 
and delimiter; for message 
DLZ123I, pointer to dfhts 
message DLZ127I, pointer 
to the message text offset 

For message DLZ082I and 
XECBName pointer; for 
message DLZ123I, CICS/VS 
response code pointer and 
delimiter; for message 
DLZ127I, checkpoint ID 
pointer and delimiter 



■i~ ■ 



192 


(CO) 


4 


TWAMSG04 


196 


(C4) 


4 


TWAPSW(2) 


204 


(CC) 


2 


TWAMPSID 


214 


(D6) 


2 


TWARCode 


216 


(D8) 


10 


TWACOND 


226 


(E2) 


4 


TWABEND 


230 


(E6) 


2 


TWARSTRT 


230 


(E6) 


1 




231 


(E7) 


1 


TWAOFFST 



For message DLZ082I and 
DLZ084I the return code 
pointer and delimiter 

Program interrupt PSW 

Batch partition ID of the 
form BG,F1 ,F2, . . . 

Return code from XECBTAB 
macro or response code from 
DFHTS macro 

BPC termination condition 
(abnormally or normally) 

CICS/VS abend code (ASRA) 

Restart message text 
offset 

First byte contains zeros 

Restart message text 
offset 



/SO 



y 



232 (E8) 24 



TWABPCLN 



Reserved 

M *-TWABPC" length of BPC's 
TWA 



V. 



\J 
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C 



( 



c 






Cross Reference 






Hex 
Name Offset 


Hex 
Value 


DLZTWAB 







TWABEND 


E2 




TWABPC 







TWABPCID 


4 




TWABPCLN 


E8 


0100 


TWABPCOK 





80 


TWABPCSV 


64 




TWABPSCD 


38 




TWACALL 


28 




TWACOND 


D8 




TWAEOJSW 





40 


TWAMPCE 


5 




TWAMPCPT 


1 




TWAMPSFG 







TWAMPSID 


cc 




TWAMSG 


AC 




TWAMSGID 


BO 




TWAMSGNO 


AC 




TWAMSGO 1 


B4 




TWAMSG02 


B8 




TWAMSGO 3 


BC 




TWAMSG04 


CO 




TWAN1PTR 


20 




TWAOFFST 


E7 




TWAPARMC 


24 




TWAPSBDL 


37 




TWAPSBN 


2C 




TWAPSBNM 


30 




TWAPSW 


C4 




TWARCODE 


D6 




TWARSTRT 


E6 




TWASCHDC 


24 




TWATSBUF 


3C 




TWATSLEN 


3C 




TWATSQBL 


40 


28 


TWATSQE 


40 




TWAWLIST 


8 




TWAXCBDL 


10 




TWAXCBN1 


18 




TWAXCBN2 


14 




TWAXCB2 


8 




TWAXCB3 


C 




TWAXNAME 


CE 





Section 5. Data Areas 5-201 



Licensed Material — Property of IBM 



UIB - User Interface Block 

DSECT Name: DLIUIB 

This control block is used by extended DL/I call interface support (along with CICS/VS high-level language 
support). This section contains scheduling and system call status information returned to the user. (Prior to Version 
1.4, this information was returned to the user in the TCA.) 



i 



y 



UIB 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 







DLIUIB 







(0) 


4 




UIB 







(0) 


4 




UIBPCBAL 




4 


(4) 


2 




UIBRCode 




4 


(4) 


1 




UIBFCTR 




5 


(5) 


1 




UIBDLTR 




6 


(6) 


1 




(2) 




8 


(8) 


4 




UIBLEN 


. . . . 1 . . . 


Cross Reference 










Name 


Hex 
Offset 


Hex 
Value 




DLIUIB 













UIB 













UIBDLTR 




5 








UIBFCTR 




4 








UIBLEN 




8 




08 




UIBPCBAL 











UIBRCODE 


4 









Description 

Extended call user 
interface block 

PCB address list 

DL/I return codes 

Return code 

Additional information 

Reserved 

Length is fullword 
multiple 

"*-UIB" length of UIB 



€ 



% 
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UIB - User Interface Block 

DSECT Name: DLZUIB 

The user section of this control block is used by extended DL/I call interface support (along with CICS/VS 
high-level language support). This section contains scheduling and system call status information returned to the 
user. (Prior to Version 1.4, this information was returned to the user in the TCA.) A system section of the UIB 
follows the user section. It is used by DL/I as task-local storage. Unlike PST storage, UIB storage is not released at 
scheduling termination. 



Offsets 



(Dec) 


(Hex) 
(0) 


Length 


l Name 








DLZUIB 





(0) 


4 


UIB 





(0) 


4 


UIBPCBAL 


4 


(4) 


2 


UIBRCode 


4 


(4) 


1 


UIBFCTR 


5 


(5) 


1 


UIBDLTR 


6 


(6) 


1 


(2) 


8 


(8) 


4 


UIBLEN 



Field/Flag Flag Code 
(Bit) 



System section of the UIB 
DL/I online task control blocks 



8 


(8) 


4 


UIBPST 


12 


(C) 


4 


UIBUTCA 


16 


(10) 


4 


UIBSDIB 


20 


(14) 


4 


UIBACTA 



Description 

Extended call user interface 
block 

PCB address list 

DL/I return codes 

Return code 

Additional information 

Reserved 

Length is fullword 
multiple 

"*-UIB M length of UIB 



Task PST address 

A (CICS/VS user TCA) 

System DIB address 

A (ACT entry) of program 
which issued last PCB call 



DL/I online task status information 






24 


(18) 


8 


UIBPROG 


32 


(20) 


4 


UIBSUSP 


36 


(24) 


4 


UIBTSTAT 



40 
48 



(28) 
(30) 



UIBPSB 
UIBSPSB 



Name of current program 

Max task suspend chain 
a (user TCA of next task) 

Task PSB schedule status 

CMAX = maximum task 

suspended 
CONF = intent conflict 
SUSP SCHD = currently 
SCHEDULED TERM = normal 
TERMINATION ABND = 
abnormal termination 

PSBNAME from last PCB call 

Name of PSB currently 
scheduled 
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56 (38) 



57 (39) 



UIBTYPSB 



UIBLOPSB 



60 (3C) 1 UIBPRIOR 

61 (3D) 3 UIBTSKID 

DL/I online call status information 

64 (40) 8 UIBDPROG 



72 


(48) 


4 


UIBFUNC 


76 


(4Q) 


4 


UIBIPCBA 


80 


(50) 


2 


UIBICODE 


82 


(52) 


2 




84 


(54) 


1 


UIBFLAG1 
UIBREMOT 

UIBHLPI 



85 (55) 



UIBXRPSB 



UIBDB 



1 . 



UIBX1 


. . .1 . . 


UIBMPS 


1 . 


UIBTERM 


1 



.1 



Type of PSB 

1 ' = local PSB 
'+' = remote PSB 
« * ' = local and remote 
PSBS 

Location of PSB 

'loc' = on local system 
'rem' = on remote system 
'XRM 1 = on local and remote 

MAXTASK suspend priority 

Current CICS/VS task id 



Reserved 

Call function type 

Internal A(PCB address list 

Internal DL/I return code 

Reserved 

UIB flag byte 

"X'SO"' PSB on remote 
system indicator 

"X^O*" HLPI command level 
program 

"X^O"' Remote with local 
PSB schedule 

"X 1 10 f " Reserved 

"■X , 08 ,M UIB acquired for 
MPS task 

"X , 04 I " Term call 
indicator 

,, X'02 fn Data base call 
indicator 



UIBSCHD 


... 1 


M X'01 '" Schedule call 
indicator 


UIBFLAG2 




UIB flag byte 


UIBDUMP 


1 


"X'SO"' Task dump taken 


UIBTERM1 


.1 


"X'40 ,n Abend during 
buffer purge 


UIBTERM2 


. . 1 


"X^O'" DL/I phase 1 term 
complete 


UIBTERM3 


. . .1 


"X' 10'" Reserved 


UIBTERM4 


1. . . 


"X , 08 ,H Reserved 


UIBTERM5 


1 .. 


,, X , 04 ,M Reserved 


UIBTERM6 


1. 


,, X , 02 ,n Reserved 






r 
^ 
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C 



C 



86 



(56) 



87 



(57) 



DL/I online task work areas 



UIBTERM7 


1 


UIBFLAG3 




UIBCLK1 


■ 1 


UIBCLK2 


.1 


UIBCLK3 


. .1 


UIBCLK4 


. . .1 


UIBCLK5 


1 . . . 


UIBCLK6 


1 . . 


UIBCLK7 


1 . 


UIBCLK8 


1 


UIBRSTAT 




UIBXBGUN 


1 



UIBXLOC .1 

UIBXREM . . 1 

UIBXSTOR ... 1 



UIBXUNSC 

UIBX2 
UIBX3 
UIBX4 



88 


(58) 


4 


UIBMSGPM 


92 


(5C) 


4 


UIBMSGP2 


96 


(60) 


4 


UIBMSGP3 


100 


(64) 


4 


UIBWORK 


104 


(68) 


4 


UIBTRCSV ( 1 8 


176 


(BO) 


4 


UIBREGSV ( 1 8 


248 


(F8) 


4 


UIBSLEN 



1 



1111 1 



"X'01 *" Reserved 

CMF clock status 

M X f 80 IM CMF clock 1 started 

"X^O"' CMF clock 2 started 

"X^O"' CMF clock 3 started 

"X'10"' CMF clock 4 started 

"X'OS"' CMF clock 5 started 

M X , 04 ,M CMF clock 6 started 

"X l 02 fM CMF clock 7 started 

"X'OT" Reserved 

Local and remote status 

"X'SO 1 " XPSB schedule 
call in progress 

"X^O"' Local PSB scheduled 

"X'20 1 " Remote PSB scheduled 

"X'10 1 " PCB list storage 
acquired 

"X'OS 1 " Local PSB 
unscheduled 

"X 1 04' " Reserved 

"X'02 1 " Reserved 

"X'01 "' Reserved 

Message parameter list 

Second message parameter 

Third message parameter 

Work area 

DLZOLT00 register save area 

Register save area 

Length is fullword multiple 

"*-UIB" length of system UIB 



Section 5. Data Areas 5-205 



Licensed Material — Property of IBM 



Cross Reference 



Name 


Hex 
Offset 


Hex 
Value 


Name 


Hex 
Offset 


Hex 
Value 


DLZUIB 







UIBTERM7 


55 


01 


UIB 







UIBTRCSV 


68 




UIBACTA 


14 




UIBTSKID 


3D 




UIBCLK1 


56 


80 


UIBTSTAT 


24 




UIBCLK2 


56 


40 


UIBTYPSB 


38 




UIBCLK3 


56 


20 


UIBUTCA 


C 




UIBCLK4 


56 


10 


UIBWORK 


64 




UIBCLK5 


56 


08 


UIBXBGUN 


57 


80 


UIBCLK6 


56 


04 


UIBXLOC 


57 


40 


UIBCLK7 


56 


02 


UIBXREM 


57 


20 


UIBCLK8 


56 


01 


UIBXRPSB 


54 


20 


UIBDB 


54 


02 


UIBXSTOR 


57 


10 


UIBDLTR 


5 




UIBXUNSC 


57 


08 


UIBDPROG 


40 




UIBX1 


54 


10 


UIBDUMP 


55 


80 


UIBX2 


57 


04 


UIBFCTR 


4 




UIBX3 


57 


02 


UIBFLAG1 


54 




UIBX4 


57 


01 


UIBFLAG2 


55 










UIBFLAG3 


56 










UIBFUNC 


48 










UIBHLPI 


54 


40 








UIBICODE 


50 










UIBIPCBA 


4C 










UIBLEN 


8 


08 








UIBLOPSB 


39 










UIBMPS 


54 


08 








UIBMSGPM 


58 










UIBMSGP2 


5C 










UIBMSGP3 


60 










UIBPCBAL 













UIBPRIOR 


3C 










UIBPROG 


18 










UIBPSB 


28 










UIBPST 


8 










UIBRCODE 


4 










UIBREGSV 


BO 










UIBREMOT 


54 


80 








UIBRSTAT 


57 










UIBSCHD 


54 


01 








UIBSDIB 


10 










UIBSLEN 


F8 


F8 








UIBSPSB 


30 










UIBSUSP 


20 










UIBTERM 


54 


04 








UIBTERM1 


55 


40 








UIBTERM2 


55 


20 








UIBTERM3 


55 


10 








UIBTERM4 


55 


08 








UIBTERM5 


55 


04 








UIBTERM6 


55 


02 









\.y 



f 4~~ 



V ..•■ 



jT"~x. 
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XCB1 - MPS Batch Partition Communication Area 

DSECT Name: DLZXCB1 

The DLZXCB1 macro maps the area behind the MPS batch partition XECB which is used to pass data and control 
information back and forth between the MPS batch partition and the online partition MPS transactions. These online 
transactions are the Master Partition Controller (MPC) and the Batch Partition Controller (BPC). 



Description 

Batch partition ECB 

Pointer to PSB name 

Pointer to program name 

Address of number of parms 

M XCB1CNT" on initial 
XPOST, address of highest 
partition addr + 1 

Address of call parameters 

System DIB address (for 
HLPI) 

Flag byte 

"X'01 '" EOJ indicator 

,, X , 02 fM Put on if PL/I 

' , X'04 ,M MPS restart 
processing on 

"X'OS"' Checkpoint/restart 
call 

"XMO'" Continue restart 
processing even though 
checkpoint ID verification 
is not possible 

RO on call to PRH 

Batch partition PIK 

Reserved for future use 

TSQ entry number 

Current VSE checkpoint ID 

Job ID next 4 fields 

Job name 

Partition ID 

Job start date 

Job start time 



Offsets 
(Dec) (Hex) 


Length 


Field/Flag 
Name 


Flag Code 
(Bit) 





(0) 





DLZXCB1 







(0) 


4 


XCB1ECB 




4 


(4) 


4 


XCB1PSB 




8 


(8) 


4 


XCB1PROG 




12 


(C) 


4 


XCB1CNT 
XCB1HIGH 


. . . 11 . . 


16 


(10) 


4 


XCB1PARM(18) 




88 


(58) 


4 


XCB1SDIB 




92 


(5C) 


1 


XCB1FLAG 
XCB1EOJ 
XCB1PLI 
XCB1RST 

XCB1CPRS 

XCB1CRP 


1 

1 . 

. . . .1 . . 

. . . 1 . . . 
. .1 



93 


(5D) 


1 


XCB1HLPI 


94 


(5E) 


1 


XCB1PPIK 


95 


(5F) 


1 


XCB1RES 


96 


(60) 


2 


XCB1TSQE 


98 


(62) 


4 


XCB1CPID 


102 


(66) 


26 


XCBUBID 


102 


(66) 


8 


XCBUBNM 


no 


(6E) 


2 


XCB1PTID 


112 


(70) 


8 


XCB1DATE 


120 


(78) 


8 


XCB1TIME 
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Cross Reference 






Name Off 


Hex 
:set 


Hex 
Value 


DLZXCB1 







XCB1CNT 


C 




XCB1CPID 


62 




XCB1CPRS 


5C 


08 


XCB1CRP 


5C 


10 


XCB1DATE 


70 




XCB1ECB 







XCB1E0J 


5C 


01 


XCB1FLAG 


5C 




XCB1HIGH 


C 


OC 


XCB1HLPI 


5D 




XCB1JBID 


66 




XCBUBNM 


66 




XCB 1 PARM 


10 




XCB1PLI 


5C 


02 


XCB1PPIK 


5E 




XCB 1 PROG 


8 




XCB1PSB 


4 




XCB1PTID 


6E 




XCB 1 RES 


5F 




XCB1RST 


5C 


04 


XCB1SDIB 


58 




XCB 1 TIME 


78 




XCB1TSQE 


60 








1 



y 



/f '\ 



w_. 



i ) 
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XMPRM - HD AM/HID AM User Secondary Index Suppression Routine 

Interface Table 

DSECT Name: DMBXMPRM 

This table is described as part of the general structure and description of the data management block (DNB). 



Offsets 



(Dec) 


(Hex) 


Length 


Name 





(0) 





DMBXMPRM 





(0) 


8 


DMBXMSGN 


8 


(8) 


8 


DMBXMXDN 


16 


(10) 


8 


DMBXMXNM 


24 


(18) 


4 


DMBXMXEP 


28 


(1C) 


2 


DMBXMPLN 


30 


(1E) 


2 




32 


(20) 


4 


DMBXMRES 



Field/Flag Flag Code 
(Bit) 



Cross Reference 






Name 


Off 


Hex 
:set 


Hex 
Value 


DMBACB 







00 


DMBVSALN 







00 


DMBXMPLN 




1C 




DMBXMPRM 









DMBXMRES 




20 




DMBXMSGN 









DMBXMXDN 




8 




DMBXMXEP 




18 




DMBXMXNM 




10 





Description 

Name of indexed segment 

Name of XDFLD 

Name of user exit routine 

Entry point of user exit 
routine 

Length of index 
maintenance parameters 

Reserved 

Address of the next 
secondary index suppression 
routine interface table 
X'FFFFFFFF 1 if this is the 
last table 
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XWR - Index Work Record 

DSECT Name: DLZPRXWR 

This DSECT describes an index work record that is created by the partial reorganization utility while performing 
pointer maitnenance. 






Offsets 



(Dec) 


(Hex) 


Length 


Name 





(0) 





XWR 





(0) 


4 


XWRSTART 





(0) 


2 


XWRHLL 


2 


(2) 


2 


XWRH00 


4 


(4) 


4 


XWRRMOVE 


8 


(8) 


4 


XWRRCOMP 


12 


(C) 


4 


XWRFSEQ 


16 


(10) 


2 


XWROACT 


18 


(12) 


1 


XWRCTYPE 


19 


(13) 


1 


XWRGFLAG 


20 


(14) 


1 


XWRCRDB 



Field/Flag Flag Code 
(Bit) 



21 (15) 



XWRCRDSG 









XWRLFIX 


22 (16) 


Var 


XWRCKEY 


Crass 1 Reference 






Name 


Hex 
Offset 


Hex 
Value 


XWR 









XWRCKEY 




16 




XWRCRDB 




14 




XWRCRDSG 




15 




XWRCTYPE 




12 




XWRFSEQ 
XWRGFLAG 




C 
13 




XWRHLL 









XWRH00 




2 




XWRLFIX 




15 


16 


XWROACT 




10 




XWRRCOMP 




8 




XWRRMOVE 




4 




XWRSTART 










. . .1 .11 



Description 



VLR length control field 

VLR control binary zeros 

New RBA' of a moved segment 

Old RBA of a segment for 
compare 

Record sequence number for 
nonunique index 

Offset in ACT which built 
this record 

Record type code 

Processing option flags 

Data base id of segment to 
be updated 

Data set group id of 
segment to be update 

"* -XWRSTART" length of 
fixed part of record 

Key of segment to be updated 



if 



/f~ 



V. 
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Record Layouts 



c 



The rest of this section provides layouts and field descriptions for the following 
records: 



Accumulation Header Record 

Accumulation Record 

Application Program Scheduling Record 

Application Program Termination Record 

Checkpoint Log Record 

Checkpoint Record 

Control Data Set 

Data Base Log Record 

Data Record (Input) 

Data Record (Output) 

Date/Time Table 

Delete Work Area 

Delete Work Space Prefix 

DL/I Control Record 

Dump Header Record 

Dump Record Prefix 

File Open Record 

Header Record (Input) 

Header Record (Output) 

Index Maintenance Work Area 

List Control Block 

Output Record Containing Segment Prefix 

Output Table Record 

Short Segment Table 

Sorted List Block 

SSA for GU Call by Key 

SSA for GU Call by RBA 

SSA for the XMAINT Call to the Analyzer 

Statistics Record 

Description of Variable Output 

Work File 1 

Description of Variable Input 

Work File 3 
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Record /Block Structures 



The general structure of DL/I log records, CICS/VS journal records, and 
CICS/VS journal blocks is shown in Figure 5-7, Figure 5-8 , and Figure 5-9, 
respectively. 



LL \b\b 



REC. 
ID 



CONTINUED ACCORDING TO DSECT 



2 4 

Note: DL/I Log Records are described under "Data Base Log Records." 

Figure 5-7. DL/I Log Record 



SYSTEM PREFIX 


USER PREFIX 


JOURNALLED 
DATA 


LL M>\b 
1 


REC. 
ID 


• • • 



Figure 5-8. CICS/VS Journal Record 



LL . %% 



CICS/VS LABEL RECORD 



CICS/VS JOURNAL RECORDS 



DL/I LOG RECORDS 



Figure 5-9. Layout of a Journal Block 



many 
combination 



C 



1 



v 



C 
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Accumulation Header Record 



Hex 



Dec Name 



This record is used by modules DLZUC350 and DLZURDBO. 



Length 









HLENGTH 


2 


2 


2 


HSPACE 


2 


4 


4 


HCODE 


1 


5 


5 


HFLG 


1 


6 


6 


HLRECL 


2 


8 


8 


HORG 


1 


9 


9 


HPURGDT 


7 


9 


9 


HPURDATE 


3 


C 


12 


HPURTIME 


4 


10 


16 


HDDNAME 


8 


18 


24 


HDBNAME 


8 


20 


32 


HDSID 


1 


21 


33 


HDATE 


3 


24 


36 


HTIME 


4 


28 


40 


HSEQ 


2 


2A 


42 


HBLKSIZE 


2 



Description 

Length of cum header record 

Zeros 

Header record ID X'25' 

Type of data set 

X'02' VSAM ESDS 

X'04' VSAM KSDS 
Record length 
Prefix organization code 
Purge date/time for data base data set 
Purge date for data base data set -YYDDDF 
Purge time for data base data set -HHMMSSOF 
Data set symbolic filename 
Data base name 
Data set ID 
Run date - YYDDDF 
Run time - HHMMSSOF 
Zeros 
Zeros 



Accumulation Record 



c 



c 



Hex 



Dec 



Name 









CLENGTH 


2 


2 


2 


CSPACE 


2 


4 


4 


CCODE 


1 


5 


5 


CFLG 


1 



6 


6 


CIDLN 


2 


8 


8 


CDBNAME 


8 


10 


16 


CDSID 


1 


11 


17 


CDATE 


3 


14 


20 


CTIME 


4 


18 


24 


CSEQ 


2 


1A 


26 


CCOUNT 


2 


1C 


28 


CDATAID 


Var 






CDATAOL 


Var 



CDATASEG 



This record is used by modules DLZUC350 and DLZURDBO. 
Length Description 



Length of cum record 

Zeros 

X'50' record identifier 

Type of data set/entry 

X'01' VSAM KSDS/Entry was VSAM ERASED 

X'02' VSAM ESDS 

X'04' VSAM KSDS 

Length of CDATAID field 

Data base name 

Data set ID 

Date - YYDDDF 

Time - HHMMSSOF 

Sequence number 

Number of data elements in CD ATA 

KSDS prime key or ESDS RBN 

One or more 4 byte data elements: 

bytes 0-1 - offset into data set record 

bytes 2-3 - length of corresponding CDATASEG 

One or more segment data entries to be moved into data set 

record. 



Var 
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Application Program Scheduling Record 



Hex 



Dec 



Name 



This record is used by modules DLZRDBLO, DLZRDBL1, DLZLOGPO, and 
DLZBACKO. 



L 



Length 









LENGTH 


2 


2 


2 


SPACE 


2 


4 


4 


LOGFLAG 


1 


5 


5 


SCHDCODE 


1 


6 


6 


PSBNAME 


8 


E 


14 


CICSID 


3 



Description 

Length of record 

Binary zero 

Record type code - X'08' 

Task ID 

PSBname 

Packed CICS Transaction ID (online only) 



Application Program Termination Record 

This record is used by modules DLZRDBLO, DLZRDBL1, DLZLOGPO, and 
DLZBACKO. 

Hex Dec Name Length Description 

PLENGTH 2 Halfword binary length of logical record 

2 2 PSPACE 2 Halfword reserved for system use (binary zero) 

4 4 ALLOGFLG 1 Identifies this logical record as application program 

termination record; value is X'07' 

5 5 ALPSBNAM 8 PSBname 
D 13 ALID 1 TASK ID 

E 14 TSKSTAT 40 10 fullwords of Accounting from PSTACCT (online only) 

36 54 CICSID 3 Packed CICS transaction I.D. (online only) 






Checkpoint Log Record 



Hex 



2 
4 



5 
D 



Dec 



2 
4 



5 
13 



Name 



Checkpoint log records are used to restart a job near its point of failure. The 
records are created and written on the DL/I log (if data base logging is active) if 
requested by the user via checkpoint calls (CHKP). Each log record contains a 
user-supplied unique checkpoint identification passed with the CHKP call. 

In case of a job failure in a batch environment, the backout utility can be run to 
backout data base changes occurring since the last checkpoint record was written. 
For MPS and/or online tasks with CICS/VS dynamic transaction backout active, 
backout is performed automatically to the last checkpoint when a task fails. 



V .y 



CHKPLEN 2 

CHKPSPC 2 

CHKPCODE 1 



Flag Name 
CHKPLRID 
CHKPPSB 
CHKPID 



Length Description 

Length of log record 
Blanks/zeros 
Log record ID 

Hex Code Meaning 

41 Checkpoint Log record ID 

8 Checkpoint PSB name 

8 User checkpoint ID 



O 
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Hex Dec Name Length 

15 21 CHKPRLEN 



Description 

Length of checkpoint log record 



Checkpoint Record 



c 



Hex Dec 



This DSECT (RCHKREC) defines the format of the checkpoint records within the 
unloaded data base for HD reorganization unload/reload utilities. 



Name 



Length 









RCHKPTID 


1 


1 


1 


RCHKNAME 


6 


7 


7 


RCHKNUM 


4 


B 


11 




1 


C 


12 


RCHKVOL1 


6 


12 


18 




1 


13 


19 


RCHKVOL2 


6 


19 


25 




1 


1A 


26 


RCKSEGNM 


8 


22 


34 




4 


26 


38 


RCHKRECL 


2 


28 


40 


RCHKPOSC 


4 


2C 


44 


RCHKPTNR 


1 


2D 


45 


RCHKEYLN 


1 


2E 


46 


RCKEYVAL 


236 


11A 


282 


Reserved 


12 


126 


294 


RCHKSEG 


4 


12A 


298 


RCHKROOT 


4 


12E 


302 


RCHKREND 


Var 



Description 

Identifies checkpoint record; Always X'00' 

Constant for checkpoint record; Always C'CHKPNT' 

Checkpoint number; 1-9999 (decimal) 

Comma, for message to SYSLOG and SYSLST 

If tape, file serial number of output volume one at 

checkpoint time. If DASD -******. 

Comma, for message to SYSLOG and SYSLST 

If tape, file serial number of output volume two at 

checkpoint time. If DASD -******. 

Comma, for message to SYSLOG and SYSLST 

Segment name of root segment in process at checkpoint time 

Reserved for future use 

Length of I/O area needed for GU call at restart time 

RBN of current record, if HD organization 

Number of checkpoint records (1 or 2) 

Key length of current segment, if HISAM 

Segment sequence field value, if HISAM 

Reserved 

Total number of segments unloaded 

Total number of root segments unloaded 

Statistics table 



Notes: 



Control Data Set 



Hex Dec 



Name 









LECELCNT 


2 


2 


2 


LELSTLOC 


2 


4 


4 


LECDSID 


20 



1. Dummy checkpoint record does not contain statistics table. 

2. Checkpoint message written to SYSLOG and SYSLST consists of message 
prefix DLZ381I followed by bytes 1 - 34 of the checkpoint record. 



Macro DLZUCDSO contains the DSECT defining format of a control list entry. 
One or more list entries may be contained in the control list. The control list may 
spread over one or more control list blocks. 

***Control Information and Identifier*** 

Length Description 

Number of 1600 byte records in control data set 
Displacement to next entry 
Identifier: * CONTROL DATA SET \ 
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Hex 

18 



19 
l'A 



Dec 

24 



25 
26 



Hex Dec 



Name 
LEFLG4 

Flag Name 

LESTAT 

LESUMM 

Unnamed 

LESRTSZE 



Name 



Length 

1 

Hex Code 

80 
40 
1 
2 



Description 

Flag byte 4: 

Meaning 

Statistics to be provided 

Give summary for message DLZ978I 

** Reserved** 

Maximum work file record length used as SORT size 

parameter by prefix resolution utility (DLZURG10). 






***Data Base List Entry*** 
Length Description 









LEFPTR 


4 


List entry forward pointer (to next 


4 


4 


LENAME 


8 


DBD name. 


C 


12 


LESLPTR 


4 


List entry sublist pointer (to first s< 


10 


16 


LECRNO 


2 


Input control card number 


12 


18 


LELEN 


1 


Length of list entry 


13 


19 


LEFLG1 


1 


Flag byte 1: 






Flag Name 


Hex Code 


Meaning 






LEF1SOPT 


80 


User specified scan method option 






LEF1SMET 


40 


If bit 1=0 use SEQ scan method 
If bit 1 = 1 use SEG scan method 






LEF1S 


02 


Data base is scanned 






LEF1R 


01 


Data base is reorganized 






LEF1I 


00 


Data base is initially loaded 



4 ' 



* * * Segment List Entry* * * 

Hex Dec Name Length Description 

LEFPTR 4 List entry forward pointer (to next segment list entry) 

4 4 LENAME 8 Logical parent segment name. 

C 12 LESLPTR 4 List entry sublist pointer (to first secondary list entry) 

10 16 LECRNO 2 Input control card number 

12 18 LELEN 1 Length of list entry 

13 19 LEFLG1 1 Flag byte 1: 

Flag Name Hex Code Meaning 

LEF1SOPT 80 User specified scan method option 

LEF1SMET 40 If bit 1=0 use SEQ scan method 

If bit 1 = 1 use SEG scan method 

LEF1S 02 Data base is scanned 

LEF1R 01 Data base is reorganized 

LEF II 00 Data base is initially loaded 

14 20 LEPSDB 4 PSDB for segment entry 
18 24 LELSDB 4 LSDB for segment entry 
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Hex Dec 



Name 









LEFPTR 


4 


4 


4 


LENAME 


8 


C 


12 


LEFDLP 


2 


E 


14 


LEFLG3 


1 






Flag Name 


Hex Code 






LET23 


80 






LELCSQ 


40 






LENLC 


20 






LELPCK 


02 






LELPOA 


01 


F 


15 


Unnamed 


1 


10 


16 


LEFDLC 


2 


12 


18 


LELEN 


1 


13 


19 


LEFLG1 


1 






Flag Name 


Hex Code 






LEF1SOPT 


80 






LEF1SMET 


40 






LEF1S 


02 






LEF1R 


01 






LEF1I 


00 


14 


20 


LELCSC 


1 


15 


21 


LEFLG2 


1 






Flag Name 


Hex Code 






LECTR 


80 






LELCF 


40 






LELCL 


20 






LELP 


10 






LELTF 


08 






LELTB 


04 






LECUS 


02 


17 


23 


Unnamed 


2 



♦♦♦Secondary List Entry #++ 

Length Description 

List entry forward pointer (to next secondary list entry) 

Referenced data base name. 

Length of logical parent concatenated key. 

Flag byte 3: 

Meaning 

Use type 20/30 records. 

Use logical child sequence field. 

No logical child found for logical parent 

Use logical parent concatenated key. 

Use logical parent old address. 

** Reserved *♦ 

Position of logical child pointers in prefix of logical parent 

Length of list entry 

Flag byte 1 : 

Meaning 

User specified scan method option 
If bit 1=0 use SEQ scan method 
If bit 1 = 1 use SEG scan method 
Data base is scanned 
Data base is reorganized 
Data base is initially loaded 
Logical child's segment code 
Flage byte 2: 

Meaning 

Update counter 

Update logical child forward pointer 
Update logical child last pointer 
Update logical parent pointer 
Update logical twin forward pointer 
Update logical twin backward pointer 
Counter used this logical child 
♦ ♦Reserved^ 
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Data Base Log Record 



Hex 



Dec 



Name 



This record is used by modules DLZRDBLO, DLZRDBL1, DLZBACKO, 
DLZLOGPO, DLZURDBO, DLZUC150, and DLZUC350. 



( * 



Length 



Description 









DLENGTH 


2 


Length of record 


2 


2 


DSPACE 


2 


Zero 


4 


4 


DLOGCODE 


1 


Log record ID 

X"50' = Data base log record 

X'51' = Old copy of a replaced segment 


5 


5 


DLOGFLG1 


1 

Bits 

0-3 

4-7 


Task ID 

Count of FSE records present 


6 


6 


DLOGFLG2 


1 

Bits 

0=1 

1-3=001 
=010 
= 100 
= 110 
=000 
= 111 

4=1 

5=0 
=1 

6=0 
= 1 

7=1 


Index maintenance record 

Physical replace 

Physical delete 

Physical insert 

Logical delete 

POINTER maintenance record 

Counter Maintenance 

Last record of a change group 

ESDS data set 

KSDS data set 

HS organization 

HD organization 

New block call 


7 


7 


DLOGFLG3 


1 

Bits 

0=1 

1 = 1 

2=1 

3&4=00 
=01 
= 10 

5=1 

6=1 

7=1 


REPL call 

DLET call 

ISRT call 

Modification by control region 

Modification by message or batch message program 

Modification by batch program 

Record written by backout 

First log record of a segment 

Last log record of a segment 


8 


8 


DIDLN 


2 


Length of DDATAID field 


A 


10 


DOFFSET 


2 


Data offset from beginning of block 


C 


12 


DDATALN 


2 


Length of DDATA field 


E 


14 


DCCODE 


2 


Byte 1 - PPST ID 

Byte 2 - DL/I Status Code (Right byte) 


10 


16 


DPGMNAME 


8 


PSB name 


18 


24 


DDBDNAME 


8 


Data base name from the DMB 



V. 



,4" 

1 
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C 



Hex Dec 



Hex Dec 



Hex 



Dec 



Name 



Name 
DDATA 



Name 
DDATA 



Length 



20 


32 


DDSID 


1 


21 


33 


DDATE 


3 


24 


36 


DTIME 


4 


28 


40 


DSEQ 


2 


2A 


42 


DDATAID 


Var 



Description 

File identification within the DMB 

Date - YYDDDF 

Time - HHMMSSOF 

Sequence stamp 

KSDS - KSDS prime key 

ESDS - Relative block number 



POINTER maintenance record (DDATALN is set to H'4') 
Length Description 



4 
4 



New pointer value 
Old pointer value 



LOGICAL DELETE record (DDATALN is set to H'2') 
Length Description 



2 
2 



Segment code and new delete byte 
Segment code and old delete byte 



PHYSICAL INSERT record (DDATALN is set to segment length) 



Hex Dec 



( 



Hex Dec 



Hex Dec 



Name 

DDATA 

DFSEOFF 

DFSE 



Name 

DDATA 

DFSEOFF 

DFSE 



Length 

y* 

2 

4 



Description 

New segment data 

Offset to FSE 

New FSE value 

If more than one FSE changes, DFSEOFF and DFSE are 

repeated for each additional one. 



PHYSICAL DELETE record (DDATALN is set to segment length) 
Length Description 



y* 

2 

4 



Old segment data 

Offset to FSE 

New FSE value 

If more than one FSE changes, DFSEOFF and DFSE are 

repeated for each additional one. 



Name 



DDATA 



DCOUNTER 



PHYSICAL REPLACE record (DDATALN is set to segment length) 
Length Description 



V* 
V* 



Old segment data - DLOGCODE = X'51' 

New segment data - DLOGCODE = X'50' 

= varies with segment length 

The last four bytes of every log record contain the log record 

sequence number. Numbers are incremented by one. The 

sequence number of the first record is one. 



^^y 
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Data Record (Input) 



Hex Dec 



Name 



This record is used as input to module DLZURRLO. 



Length 









Unnamed 


4 


4 


4 


DSIDIN 


1 


5 


5 


Unnamed 


3 


8 


8 


Unnamed 


Var 



Description 

ESDS RBA identifier; unused if KSDS 

Character I if KSDS; O if ESDS 

Reserved 

KSDS or ESDS physical record image. The first four bytes 

contain the VSAM relative byte address (RBA) of the next 

ESDS record containing overflow dependent segments for 

the root segment. The RBA is zero if no (more) ESDS 

records follow. The last byte of the data record contains a 

special physical code X'0\ If the data base contains only 

HISAM root segments and ACCESS=SHISAM, the physical 

code and RBA do not exist. 






Data Record (Output) 



Hex 



Dec 



Name 



This output record is used by module DLZURULO. 



Length 









CONTOUT 


4 


4 


4 


DSIDOUT 


1 


5 


5 


BLNKDOUT 


1 


6 


6 


DSRECLN 


2 


8 


8 


DATA 


Var 



Description 

ESDS RBA identifier; unused if KSDS 

Character I if KSDS; O if ESDS 

(Not used) 

Record size + prefix length 

KSDS or ESDS physical record image. The first four bytes 

contain the VSAM relative byte address (RBA) of the next 

ESDS record containing overflow dependent segments for 

the root segment. The RBA is zero if no (more) ESDS 

records follow. The last byte of the data record contains a 

special physical code X'0\ If the data base contains only 

HISAM root segments and ACCESS=SHISAM, the physical 

code and RBA do not exist. 



V 



Date /Time Table 



Hex Dec 




1 




1 



Name 

TABFLAG1 
TABFLAG2 

TABFLAG3 

Flag Name 
TABF3N 
TABF3DT 
TABFLAG4 



V. 



This record is used by modules DLZUCCTO and DLZUC 150. 

Length Description 

1 Blank. Used as table delimiter 

1 Contains a or 1 to denote routing for the data base in this 

table 
1 Contains flags as follows: 

Hex Code Meaning 

80 Record to LOGOUT 

40 Purge date specified 

1 Reserved for future use 



i> 
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( 



Hex 


Dec 


Name 


Length 


Description 


4 


4 


TABFLAG5 


4 


Reserved f c 


8 


8 


TABFLAG6 


8 


Contains &< 



Delete Work Area 



c 



t 






Hex 



Dec 



Name 



This record is used by module DLZDLDOO. 
Length Description 









DLTRSCID 


7 








DLTRSCRB 


4 


4 


4 


DLTCHN 


8 


4 


4 


DLTPWAID 


4 


4 


4 


DLTRSCID 


3 


4 


4 


DLTDMBNO 


2 


8 


8 


Unnamed 


4 


C 


12 


DLTWANXT 


4 


10 


16 


DLTWASW 


1 






Flag Name 


Hex Code 






DLTWSBEG 


01 






DLTERFLG 


02 






DLTLRFLG 


04 






DLTVRFLG 


08 






DLTSCFLG 


10 






DLTIMFLG 


20 


10 


16 


DLTWAPRI 


4 


14 


20 


DLTDMB 


4 


18 


24 


DLTSPSDB 


4 


1C 


28 


DLTLPSDB 


4 




32 


DLTSLEV 


2 


22 


34 


DLTTEMPH 


2 


24 


36 


DLTESECL 


4 


28 


40 


DLTEDMB 


4 


2C 


44 


DLTEPSDB 


4 


30 


48 


DLTERBN 


4 


34 


52 


DLTLPKOF 


2 


36 


54 


DLTWASZ 


2 


38 


56 


DLTMID 


36 


38 


56 


DLTPLT 


4 


3C 


60 


DLTCLT 


4 


40 


64 


DLTNLT 


4 


44 


68 


DLTTEMP1 


4 


48 


72 


DLTTEMP2 


4 


4C 


76 


DLTTEMP3 


4 


50 


80 


DLTTEMP4 


4 


54 


84 


DLTLEVEL 


8 


54 


84 


DLTRFLG 


1 



Resource ID for PI queuing (must be first in WKA) 

RBA portion of resource ID 

Chain (prior content PSTWRKD1-2) 

ID of current work area; DMB number, ACB number, and 

work area sequence number 

DMB/ACB number part of resource ID 

DMB number 

Prior scan exit address (PSTWRKD2) 

Address of next WKA 

Switch 

Meaning 

First work area in work space 

R-O record flag required 

R-O record flag required due to LP LC counter update 

Verifies are required 

Pre-scan was done 

Index maintenance was done 

Address of prior WKA 

DMB address of this WKA 

Scan start PSDB 

Scan end PSDB 

Level at which scan started 

Half word temporary save area 

Secondary list address causing exit 

Exit DMB address 

Prior DMB's PSDB (exit point) 

Exit RBN 

Offset from DLTWA to concatenated key 

Length of this work area 

'Middle' of WKA 

Save area for prior L/C on twin chain 

Save area for current L/C on twin chain 

Save area for next L/C on twin chain 

Working register save area (R6) 

Working register save area (R7) 

Working register save area (R8) 

Working register save area (R9) 

Level information beginning 

Flag byte 
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Hex 


Dec 


Name 


Length 


Description 






Flag Name 


Hex Code 


Meaning 






DLTSVPP 


01 


Save segment and parents 






DLTSVPC 


02 


Save segment and physical children 






DLTLDO 


03 


Logical delete only 






DLTKEYSW 


04 


Key stored for this level 






DLTTEFLG 


08 


Temporary lock enqueue was done 


54 


84 


DLTPSDB 


4 


Current PSDB this level 


58 


88 


DLTRBN 


4 


RBN of segment this level 


5C 


92 


DLTLEVLN 


8 


Length of level information entry 


64 


100 


DLTMIDLN 


36 


Length of last half work area 


88 


136 


DLTWALN 


92 


Length of basic delete work area 






Delete Work Space Prefix 



Hex 



Dec 



Name 



This record is used by module DLZDLD00. 
Length Description 









DLTBLKNM 


4 


4 


4 


DLTBUFFA 


4 


8 


8 


DLTNXTWS 


4 


C 


12 


DLTPRIWS 


4 


10 


16 


DLTSIZWS 


4 


14 


14 




4 



Block number of buffer (from PSTBLKNM) 

Address of buffer prefix (from PSTBUFFA) 

Address of next work space 

Address of prior work space 

Usable size of this space 

Reserved 



DL/I Control Record 



Hex Dec 



Name 






This record is used by module DLZDLOC0. 
Length Description 









RECDATCR 


3 


Creation date - YYDDDF 


3 


3 


RECTIMCR 


5 


Creation time - HHMMSSTH0F 


8 


8 


RECDATRE 


3 


Recovery date - YYDDDF 


B 


11 


RECTIMRE 


5 


Recovery time - HHMMSSTH0F 


10 


16 


RECDATER 


3 


Reserved 


13 


19 


RECTIMER 


5 


Reserved 


18 


24 


RECNXRBA 


4 


Not used 


1C 


28 


RECDOS 


3 


DL/I component code (DLZ) 


IE 


31 


RECVERS 


3 


Version and release level 


22 


34 


RECPTF 


2 


PTF number 


24 


36 


RECLKSDS 


4 


KSDS record length (HISAM only) 


28 


40 


RECLESDS 


4 


ESDS record length 


2C 


44 


RECORGAN 


1 


Data base organization 
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Name 



Character Meaning 











RECHDAM D 


HDAM 










RECHIDAM I 


HID AM 










RECHISAM S 


HISAM 


Hex 


Dec 


Name 


Length 


Description 




2D 


45 




Var 


Reserved to end of control interval 



Dump Header Record 



Hex 



Dec 



This record is used by modules DLZUDMPO and DLZURDBO. 



Name 



Length 



Description 



c 



c 









DHSAMCTL 


1 


1 


1 


DUMPID 


1 


2 


2 


DCBNOOUT 


2 


4 


4 


DUMPDBDN 


8 


C 


12 


DIDDNOUT 


8 


14 


20 


DDATEOUT 


4 


18 


24 


DTIMEOUT 


4 


1C 


28 


DODDNOUT 


8 


24 


36 


DIBLKOUT 


2 


26 


38 


DIREGOUT 


2 


28 


40 


DOBLKOUT 


2 


2A 


42 


DORECOUT 


2 


2C 


44 


DKEYLEN 


2 


2E 


46 


DKEYPOS 


2 


30 


48 


DDBDORG 


1 



Dump Record Prefix 



Reserved for future use 

Character D 

Reserved for future use 

Name of the DMB devised from the Data dase Description 

(DBD) 

Contains the name of the key sequenced data set if this is 

dump of a KSDS data set 

Julian date in packed decimal - 00YYDDDF 

Time in packed decimal - HHMMSSOF 

Contains the name of the entry sequenced data set if this is 

dump of an ESDS data set 

Contains KSDS control interval size if this is dump of KSDS 

data set 

Contains KSDS record length if dump of KSDS data set 

Contains ESDS control interval size if this is dump of ESDS 

data set 

Contains ESDS record length if dump of ESDS 

Contains KSDS key length if dump of KSDS 

Contains KSDS relative key positive if dump of KSDS 

Data set organization code 



This record is used by module DLZUDMPO. 



Hex Dec 



Name 



Length 



Description 









COUNTOUT 


4 


4 


4 


DSIDOUT 


1 


5 


5 


Reserved 


1 


6 


6 


DSRECLN 


2 


8 


8 


DATA 


Var 



ESDS RBA identifier; record count if KSDS 
Character I if KSDS; O if ESDS 
Reserved for future use 
Record size + prefix length 
Physical record image 






File Open Record 



This record is used by modules DLZRDBLO, DLZRDBL1, DLZLOGP0, 
DLZUC150, and DLZUC350. 
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Hex 



Dec 



Name 



Length 









DLENGTH 


2 


2 


2 


DSPACE1 


2 


4 


4 


DLOGCODE 


1 


5 


5 


DLOGFLG1 


2 


7 


7 


DSPACE2 


9 


10 


16 


DPGMNAME 


8 


18 


24 


DDBDNAME 


8 


20 


32 


DDSID 


1 


21 


33 


DDATE 


3 


24 


36 


DTIME 


4 


28 


40 


DCOUNT2F 


4 



Description 

Length of record 

Binary zero 

Record type code - X'2F' 

Data set organization 

X'00' = ESDS 

X'04' = KSDS 

Binary zero 

Data set filename (ACB) 

DMB name 

DSGACBNO (2 if HISAM ESDS; otherwise 1) 

Binary zero 

Binary zero 

Log record sequence number 






Header Record (Input) 



Hex Dec 



Name 



This record is used as input for module DLZURRLO. 



v y 



Length 









Unnamed 


1 


1 


1 


IDIN 


1 


2 


2 


RECLNOUT 


2 


4 


4 


DBDNAME 


8 


C 


12 


DDNAMEI 


8 


14 


20 


Unnamed 


4 


18 


24 


Unnamed 


4 


1C 


28 


DDNAMEO 


8 


24 


36 


BLKSIZEI 


■2 


26 


38 


LRECLI 


2 


28 


40 


BLKSIZEO 


2 


2A 


42 


LRECLO 


2 


2C 


44 


Unnamed 


1 


2D 


45 


KEYLENGI 


1 


2E 


46 


KEYPOSI 


2 



Description 

X'FF" header/statistic record identifier 

Character R 

Size of output record, including prefix 

Name of the DMB derived from the Data Base Description 

(DBD) 

Name of key sequenced data set (KSDS) 

Julian date in packed decimal-OOYYDDDF 

Time in packed decimal-HHMMSSOF 

Name of entry sequenced data set (ESDS) 

KSDS record length * number of records/control interval 

KSDS record length 

ESDS record length * number of records/control interval 

ESDS record length 

0; (Not used) 

KSDS key length 

KSDS relative key position 



(/ y~y 



Header Record (Output) 



Hex Dec 




1 

2 
4 




1 
2 
4 

12 



Name 

HSAMCTRL 
IDOUT 
RECLNOUT 
DBDOUT 

IDDNOUT 



This record is used by module DLZURUL0. 
Length Description 

1 X'FF' header/statistic record identifier 

1 Character R 

2 Size of output record, including prefix 

8 Name of the DMB derived from the Data Base Description 

(DBD) 
8 Name of key sequenced data set (KSDS) 



5-224 DL/I DOS/ VS Logic Manual, Volume 1 



Licensed Material — Property of IBM 



^> 



Hex 



Dec 



Name 



Length 



14 


20 


DATEOUT 


4 


18 


24 


TIMEOUT 


4 


1C 


28 


ODDNOUT 


8 


24 


36 


IBLKSOUT 


2 


26 


38 


ILRECOUT 


2 


28 


40 


OBLKSOUT 


2 


2A 


42 


OLRECOUT 


2 


2C 


44 


IKEYLENG 


2 


2E 


46 


IKEYPOS 


2 



Description 

Julian date in packed decimal-OOYYDDDF 

Time in packed decimal-HHMMSSOF 

Name of entry sequenced data set (ESDS) 

KSDS record length * number of records/control interval 

KSDS record length 

ESDS record length * number of records/control interval 

ESDS record length 

KSDS key length 

KSDS relative key position 



Index Maintenance Work Area 



c 



Hex 



Dec Name 



This record is used by module DLZDMXTO. 
Length Description 









XSAVDSGA 


4 


4 


4 


XSAVPCB 


4 


8 


8 


XSAVUSER 


4 


C 


12 


XSAVIQPR 


4 


10 


16 


XPHYSPP 


4 


14 


20 


XWORKPCB 


4 


18 


24 


XWORKSAA 


4 


1C 


28 


XWORKFNC 


4 


20 


32 


XDPSDBAD 


4 


24 


36 


XDSECLST 


4 


28 


40 


XDRID 


8 


28 


40 


XDRBAPTR 


4 


2C 


44 


XDDMBACB 


4 


30 


48 


XNRID 


8 


30 


48 


XNRBAPTR 


4 


34 


52 


XNDMBACB 


4 


38 


56 


XSPSDBAD 


4 


3C 


60 


XSSECLST 


4 


40 


64 


XSRBAPTR 


4 


44 


68 


XNPSDBAD 


4 


48 


72 


XDSDBAD 


4 


4C 


76 


XSSDBAD 


4 


50 


80 


XPROT 


2 


52 


82 


XRPREFIX 


2 


54 


84 


XSPREFIX 


2 


56 


86 


XNSEGLEN 


2 


58 


88 


XNKEYLEN 


2 


5C 


92 


STACK1 


4 


60 


96 


STACK2 


4 


64 


100 


STACK3 


4 


68 


104 


XSAVSTC 


1 


69 


105 




1 


6A 


106 


XCALLFUN 


1 



Save location for caller's DSG 

Save location for caller's PCB 

Save location for caller's I/O area 

For caller's call list address 

Save location for physical parent pointer. 

Save location for XMAINTs PCB 

Address of SSA built by DLZDXMT0 

XMAINTs function code for call 

Address of PSDB of indexed segment 

Secondary list of indexed segment 

Indexed segment ID for enqueue 

RBA of indexed segment 

DMB and ACB numbers of indexed segment 

Indexing segment ID for enqueue 

RBA of indexing segment 

DMB and ACB numbers of indexing segment 

PSDB of index source segment 

Secondary list of index source segment 

RBA of index source segment 

Address of PSDB of indexing segment 

Index target segment SDB address 

Index source segment SDB address 

Length of protected data 

Record prefix length 

Segment prefix length 

Length of indexing segment 

Sequence field length of index pointer segment 

Return address for first level subroutine 

Return address for second level subroutine 

Return address for third level subroutine 

Save status code 

♦Reserved* 

Call attributes byte 
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6B 



107 



6E 



110 



Hex Dec 



Name 


Length 


Description 


Flag Name 


Hex Code 


Meaning 


ISLOAD 


80 


Load mode 


ISASRT 


40 


ASRT call 


ISDLET 


20 


DLET call 


ISISRT 


10 


ISRT call 


ISREPL 


08 


Function is replace 


ISUNLD 


02 


UNLD call 


XTSWIT1 


1 


Temporary switch 


Flag Name 


Hex Code 


Meaning 


XNOSUPR 


80 


No suppression for this index. 


XOLDSUPR 


40 


Old segment was suppressed 


XPTRONLY 


20 


PTR to XDS only, no CONCAT key 


XISPRIM 


10 


A primary index was found 


XNULLFLD 


01 


Null value suppression 


XEXITRT 


02 


Exit routine for suppression 


XDATACHN 


04 


XNS changed in a replace call 


XWORKPUT 


2 


Begin of record for load 



c 



v.y 



Name 



(The rest of this record starts on a fullword boundary) 
Length Description 



70 


112 


XWORKUSR 





XMAINTs I/O area for call 


70 


112 


XWORKDUM 


2 


Reserved 


72 


114 


XWORKSEG 





Start of segment 


72 


114 


XWORKCD 


1 


Segment code 






Flag Name 


Hex Code 


Meaning 






XNSEGC01 


01 


Segment code of indexing segment 


73 


115 


XWORKDEL 


1 


Delete byte in indexing segment 


74 


116 


XWORKPTR 


4 


Pointer in indexing segment 


78 


120 


XWORKKEY 


Var 


Area for key in indexing segment 



c 



List Control Block 



Hex Dec 



Name 



1C 


28 


ENTLNGTH 


2 


IE 


30 


COMPLOC 


2 


20 


32 


COMPLNG 


2 


22 


34 


NUMENT 


2 


24 


36 


CHAINLOC 


4 



28 



40 



CHBACK 



(The SSA for the XMAINT call to the analyzer is created behind the key) 

This record is used by module DLZUSCH0. 

Length Description 

The length, in bytes, of each entry in the list 

The offset from the beginning of each entry to the key field 

The length of the key field 

The current number of entries in the list 

The location of the first of a chain of core blocks containing 

sorted list entries 

The location of the last block in the chain 






c 
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2C 44 ENTBLKSZ 4 



30 



48 



LASTLO, 
LASTHI, 
LASTMD, 
ENTLOC 



12 



Description 

The size of each core block used for list entries (includes the 
chaining fields). This value is calculated as follows: 
ENTBLKSZ = 16*ENTLNGTH+8 
Work areas used by INSRCH and LOCSRCH 



Output Record Containing Segment Prefix 



C 



Hex Dec 



This DSECT (IOAREA) defines the format of the unloaded data base records used 
by the HD reorganization unload/reload utilities. 



Name 



Length 









RGUSEGLV 


1 


1 


1 


RGUHSDF 


1 


2 


2 


RGUHDRLN 


2 


4 


4 


RGUSEGLN 


2 


6 


6 


RGUSEGNM 


8 


E 


14 


RGUSEGDF 


1 


F 


15 


RGUPFCTR 


4 


13 


19 


IOTWFOR 


4 


17 


23 


IOTWBACK 


4 


IB 


27 


IOPAR 


4 


IF 


31 


IOOLD 


4 


23 


35 


IOSEG 


Var 



Description 

Segment code for this segment 

HSAM delete flag; always X'80' to denote HD 

Reorganization Unload Utility 

Length of header portion of record 

Length of data portion of record 

Segment name 

Delete flag of segment 

Counter field of prefix 

Logical twin forward pointer 

Logical twin backward pointer 

Logical parent pointer 

Old location of record 

Variable-length data field 



Output Table Record 



Vy 



Hex 


1 

2 
4 



Hex 



Dec 


1 

2 
4 



Dec 



This DSECT (DLZUSTAT) defines the format of the statistics table within the 
unloaded data base for HD reorganization unload/reload utilities. 



Name Length Description 

RGUSEGLV 1 Always XW 

RGUHSDF 1 X'80' for first table record and checkpoint table record 

X'90' for last table record 
RGUHDRLN 2 Length 

RGUSEGLN Var A table containing one entry for each segment type. 



Name 



Field Description of RGUSEGLN 
Length Description 









SEGNAME 


8 


8 


8 


SMIMCHLD 


4 


C 


12 


SAIMCHLD 


4 


10 


16 


WKIMCHLD 


4 



Segment name 

Maximum immediate children 
Average immediate children 
Working entry for above 
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Name 



Length 



14 


20 


SMSBCHLD 


4 


18 


24 


SASBCHLD 


4 


1C 


28 


WKSBCHLD 


4 


20 


32 


TSEGTYPE 


4 


24 


36 


SEGLEVEL 


1 


25 


37 


SEGPHYCD 


1 


26 


38 


TABLEND 


2 


26 


38 


TSEGLEN 


2 


28 


40 


STATABSZ 





Description 

Maximum subordinate children 
Average subordinate children 
Working entry for above 
Total segments for this type 
Segment level 
Segment physical code 
Table end indicator (X'80') 
Segment length including prefix 
Length of each table entry 



xJ 



Short Segment Table 



Hex Dec 



Name 



This record is used by module DLZURULO. 



Length 









SEGMDSNO 


1 


1 


1 


SEGMCODE 


1 


2 


2 


PARSEGCD 


1 


3 


3 


SEGMLEVL 


1 


4 


4 


Unnamed 


2 


6 


6 


SEGMLENG 


2 



Description 

Data set number (not used by DLZURULO) 

Physical segment code 

Physical code of this segment's parent 

Segment hierarchical level 

Number of logical children and fields (not used by 

DLZURULO) 

Segment length, including prefix 



Sorted List Block 



Hex 



1 
4 

8 



Dec 



1 
4 

8 



Name 

ENCNT 

CHAIN 
BKCHAIN 

ENTRIES 



This record is used by module DLZUSCHO. 

Length Description 

1 The count minus one of the current number of entries in this 

block (currently, the maximum value for count is 16) 

3 The location of the next sorted list block in the chain. In the 
last block, this field contains binary zeros. 

4 The location of the preceding sorted list block in the chain. 
In the first block on the chain, this field contains the location 
of the CHAINLOC field in the list control block. 

Var Up to 16 full entries in sorted order. 

Note: All blocks are the same size regardless of the number 
of entries contained. Unused space at the end of a block is 
not zeroed. 



,4~ 
1_ 



u 
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SSA for GU Call by Key 



Hex Dec 




8 
A 
B 




8 

10 
11 



Name 

KEYSEGNM 

KEYCODE 

KLEFTPAR 

KEY 

KRITEPAR 



This record is used by module DLZURGUO. 

Length Description 

8 Name of segment to be retrieved 

2 '*C - command code 

1 '(' - left parenthesis 
1-236 key to be retrieved 

2 ')' - right parenthesis 



SSA for GU Call by RBA 



Hex Dec 



Name 



This record is used by module DLZURGUO. 
Length Description 









RBASEGNM 


8 


Name of segment to be retrieved 


8 


8 


RBACODE 


2 


'*T' - command code 


A 


10 


RLEFTPAR 


1 


'(' - left parenthesis 


B 


11 


RBA 


4 


RBA to be retrieved 


F 


15 


RRTTEPAR 


1 


')' - right parenthesis 



SSA for the XMAINT Call to the Analyzer 

This record is used by module DLZDXMTO. 



Hex Dec Name 

XSEGNAME 

8 8 XCOMMCOD 

A 10 XLEFTPAR 

B 11 XKEYVALU 



Length Description 

8 Name of index pointer segment 

2 '*X' - command code 

1 '(' - left parenthesis 

Var Key value followed by right parenthesis ')' 



c 



Statistics Record 



Hex 


1 

2 

4 
C 
14 
1C 



Dec 


1 

2 

4 
12 
20 
28 



Name 

Unnamed 
Unnamed 
Unnamed 

Unnamed 
Unnamed 
Unnamed 
Unnamed 



This record is used by modules DLZURULO and DLZURRLO. 
Length Description 

1 X'FF' header/statistics record identifier 

1 Character S 

2 Number of segment types in data set group (16 bytes per 
segment type) 

8 Name of the DMB derived from the DBD 

8 KSDS filename 

8 ESDS filename 

Var A 16-byte table entry for each segment type in the data base 
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Description of Variable Length Last Field of Statistics Record When Used as Output for DLZURULO. 



Hex Dec 



Name 



Length 









SEGNAME 


8 


8 


8 


TSEGTYPE 


4 


C 


12 


SEGLEV 


1 


D 


13 


SEGPCD 


1 


E 


14 


TSEGLN 


2 



Description 

Segment name 

Total number of segments unloaded 

Segment level 

Segment physical code 

Segment length, including prefix 






Description of Variable Length Last Field of Statistics Record When Used as Input for DLZURRLO. 



Hex Dec 


Name 


Length 


Description 



8 8 
C 12 
D 13 
E 14 


SEGNAME 

TOTSEG 

SEGLEV 

SEGPCD 

SEGLN 


8 
4 
1 
1 

2 


Segment name 

Total number of segments unloaded 

Segment level 

Segment physical code 

Segment length, including prefix 


Work File 1 









Hex 



Dec 



^ y 



Name 



This record is used as the input file for DLZURG10. 
Length Description 



;f~ 









ALENGTH 


2 


Length of work file 1 record 


2 


2 


ASPACE 


2 


Two bytes of zeros 


4 


4 


ALTYPE 


1 


Type of input record 






Flag Name 


Hex Code 


Meaning 






ATYPEOO 


00 


Type 00 record 






ATYPE01 


01 


Type 01 record 






ATYPE02 


02 


Type 02 record 






ATYPE03 


03 


Type 03 record 






ATYPE10 


10 


Type 10 record 






ATYPE20 


20 


Type 20 record 






ATYPE30 


30 


Type 30 record 






ATYPE40 


40 


Type 40 record 






DL/I Record 




Use 






Type 










00 




Generated once for each use 



,^ 



/if 



10 



Generated once for each use of a segment as a logical child. 



c 
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Hex 



Dec 



Name 

20 

30 



Length 







40 




5 


5 


ALFLAG1 


1 






Flag Name 


Hex Code 






AL1LOAD 


80 






AL1SEQ 


40 






AL1SCAN 


20 






AL1LPCK 


10 






AL1SQUN 


08 






AL1SEQA 


04 






AL1CONST 


02 






AL1SYMB 


01 






AL1T23 


01 


6 


6 


ALFLAG2 


1 


7 


7 


ALFLAG3 


1 


8 


8 


ALEVTTR 


4 


C 


12 


ALPDBNAM 


8 


14 


20 


ALPSEQ 


1 


15 


21 


ALPCKEY 


Var 






ALPOADDR 


4 






ALCDBNAM 


8 






ALCSEG 


1 



Description 

Generated when a segment used as a logical child contains 
logical twin forward pointers and when the logical twin chain 
cannot be resolved by using the logical child's sequence field. 

Generated when a segment used as a logical child contains 
logical twin backward pointers and when the logical twin 
chain cannot be resolved by using the logical child's 
sequence field. 

Generated once for each time a segment is indexed 

Flag 1. Use this field to tell which value ALFLAG2 and 
ALFLAG3 hold. 

Meaning 

Set to 1 if ISRT; set to if ASRT 

Set to 1 if sequence field is present 

Set to 1 if record produced by scan program (DLZURGS0) 

Set to 1 if logical parent concatenated key is prsent 

Sequence field is unique 

Set to 1 if root sequence field is present 

Constant present in key 

For type 40 record; pointer is symbolic 

Set to 1 if logical twin pointers are to be resolved by type 20 

and 30 records 

Executable length (length of field minus 1) of sequence field, 

if present, or executable length of indexed field if present. 

Executable length (length of field minus 1) of logical parent 

concatenated key, if present 

Value of LEVTTR after BYLCT 

Data base of logical parent 

Segment code of logical parent 

Logical parent's concatenated key (Length of field in 

ALFLAG3) 

Logical parent's old address 

Data base of logical child 

Segment code of logical child 



Hex Dec 



Name 



***FOR TYPE 00 AND 01 RECORDS*** 
Length Description 



ALCFL 


4 


ALT0001 


1 


ALPLSGOF 


2 


ALCCTR 


4 


ALPDCB 


1 



Old value of logical child first or logical child last pointer 

X'00'orXW 

Value of logical parent's LEVSEGOF after BYLCT 

Old value of counter field 

DCB NUMBER FOR LP 



(TYPE 01 RECORD ENDS HERE) 
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Hex Dec 



Hex Dec 



Hex 



Dec 



Hex Dec 



Hex 



Dec 



Name 
ALPSEQA 



Name 
ALCOAD 

ALT02 

Name 

ALFIL 

ALCSEQ 

ALCM 



ALT123 

ALCDCB 

ALCSEQA 



Name 



Name 



Length Description 

2 Pointer to secondary list entry within control data set 

* * *FOR TYPE 02 RECORDS* * * 
Length Description 

4 Logical child old address 

1 X'02' 

***FOR TYPE 10, 20, AND 30 RECORDS*** 



J 



Length 

1 



1 
1 

2 



Description 

X'FF' 

Logical child sequence field (Length of field in ALFLAG2) 

If LC has LT pointers and a non-unique sequence field and 

is being reloaded, ALCM contains the following: 

For Type 10 - LC's old address 

For Type 20 - LC's old LT forward pointer 

For Type 30 - LC's old LT backward pointer 

Otherwise, ALCM contains the value of LEVSEGOF, with 

high order bit set to one 

X'10',orX'20',orX'30' 

DCB number for LC 

Pointer to secondary list entry within 'control data set' 



***FOR TYPE 40 RECORDS*** 



€ 



Length 



8 


8 


AILCOA 


4 


C 


12 


AIDBNAM 


8 


14 


20 


AIFLDVAL 


Var 






AISC 


1 






AISEQ 


1 






AISEGN 


8 






AIFLDN 


8 






AISDBN 


8 






AISSC 


1 






AILCNA 


4 






AIDATA 


Var 



9 


9 


AISSFN 


8 


11 


17 


AISSAID 


3 


14 


20 


AISFLDV 


Var 






AISSEQ 


Var 



Description 

Logical child old address 

Index data base name 

Indexed field value (variable length) 

Index segment's segment code 

Index segment's sequence code (if second level and present) 

Index segment's name (For level 2 index segments) 

Indexed field name (For level 1 index segments) 

Indexed segment's data base name 

Indexed segment's segment code 

Logical child new address 

Indexed segment data (for source fields) 



***FOR TYPE 40 RECORD USED AS SSA AND I/O AREA*** 
Length Description 



Index segment name or field name 

SSA ID and command code 

Indexed segment's indexed field value (variable length) 

Index segment's sequence field value (variable length) 



/T N 



C 
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Hex Dec Name Length Description 

AXSC 1 Segment code of indexed segment 

AXDDIR 3 DDIR address of indexed data base 

AXLCNA 4 Logical child new address 

AXDATA Var Index source data 



Work File 3 



This record is the output file from DLZURG10 and is used as the input file for 
DLZURGPO. 



Hex Dec 



Name 



Length 









CLENGTH 


2 


2 


2 


CSPACE 


2 


4 


4 


CTYPE 


1 






Flag Name 


Hex 






CTYPEO 


00 






CTYPE01 


01 






CTYPE1 


10 






CTYPE2 


20 






CTYPE3 


30 






CTYPE4 


40 


5 


5 


CFLAG1 


1 






Flag Name 


Hex 






CF1LOAD 


80 






CF1SCAN 


20 






CFILPCK 


10 






CF1SEQA 


04 






CF1T0F 


02 






CF1T23 


01 



Description 

Length of work file record 

Zeros 

Work file record type 

Meaning 

Type 00 record 
Type 01 record 
Type 10 record 
Type 20 record 
Type 30 record 
Type 40 record 
Origin of record 

Meaning 

Flag on-initial load; Flag off -reorganization 

Record produced by scan 

Logical parent concatenated key if present 

Set to 1 if root sequence field present 

Set to 1 if matching type 10 record found 

Set to 1 if logical twin pointer is to be resolved by type 20 

and 30 records 



c 



o 
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Hex 



Dec Name 



6 


6 


CLCDBNO 


8 


E 


14 


CLCSEGNO 


1 


F 


15 


CLPSEGNO 


1 


10 


16 


CLCFRST 


4 


14 


20 


CLCDLST 


4 


18 


24 


CLCDCNT 


4 


1C 


28 


CLPDBNO 


8 



Hex Dec 



Name 



6 


6 


CLPDBN1 


8 


E 


14 


CLPSEGN1 


1 


F 


15 


CLCSEGN1 


1 


10 


16 


CLTFWD 


4 


14 


20 


CLTBKWD 


4 


18 


24 


CLPNWAD1 


4 


1C 


28 


CLCDBN1 


8 


Hex 


Dec 


Name 


Lenj 


24 


36 


CDCB 


1 


25 


37 






26 


38 


CLEVTTR 


4 


2A 


42 


CLEVSGOF 


2 


2C 


44 


CLCCNT 


4 


30 


48 


CLSEQ 


Var 



***FIELDS IN TYPE RECORD*** 

Length Description 

Logical child data base name 
Logical child segment code 
Logical parent segment code 
Logical child first pointer 
Logical child last counter 
Logical child delta counter 
Logical parent data base name 

***FIELDS IN TYPE 1 RECORD*** 
Length Description 



Logical parent data base name 
Logical parent segment code 
Logical child segment code 
Logical twin forward pointer 
Logical twin backward pointer 
Logical parent new address 
Logical child data base name 



**COMMON FIELDS FOR BOTH TYPE AND TYPE 1 RECORDS*** 
Description 

DCB number 



Contents of LEVTTR after BYLCT 

Contents of LEVSEGOF after BYLCT (high order bit of 

CLEVSGOF is set to 1 if segment is not in HD) 

Old value of counter field 

Root sequence field 






v y 



c 



j> 



y"^ 
V-"' 



c 
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Section 6. Diagnostic Aids 



This section contains two tables that cross-reference DL/I messages and DL/I 
status codes with the module (s) that originate them. 

Additional diagnostic information can be found in the DL/I DOS/VS Diagnostic 
Guide, SH24-5002. 



c 



( 



c 

^k**^ 
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DL/I Message Cross Reference 



This table cross-references message numbers (in numeric order) with the module(s) 
or phase(s) that can cause that message to be issued. In addition, if the message is 
described in the HIPO diagram in Section 2, the HIPO figure number is also 
shown. The modules and phases are described in Section 3 of this publication. 
The messages are described in Chapter 1 of DL/I DOS/VS Messages and Codes. 






Note: DLZ000I is issued when a module requests a message that does not exist. 



Message 


Module/ 


Figure 


Number 


Phase 


Number 


DLZOOOI 


DLZMMSGT 
(see note 
above) 




DLZ001I 


DLZBNUCO 


2-4.2 


DLZ002I 


DLZBNUCO 
DLZDXMTO 
DLZPRABC 


2-4.2 


DLZ003I 


DLZDDLEO 




DLZ004I 


DLZDBH02 






DLZRDBLO 


2-16.7 


DLZ005I 


DLZDBH02 




DLZ006I 


DLZOLI00 


2-5.4 


DLZ007I 


DLZDSEHO 
DLZDXMTO 


2-39 


DLZ009I 


DLZRRCOO 
DLZPRSTC 


2-3.8 


DLZ010A 


DLZRRCOO 
DLZLOGPO 






DLZMPIOO 


2-21.1 


DLZ011I 


DLZRRCOO 


2-3.2 




DLZEIPBO 


2-45.6 


DLZ012I 


DLZMPIOO 


2-21.1 




DLZRRCOO 


2-3.4, 2-3.7, 2-3.9 


DLZ013I 


DLZOLI00 


2-5.3 


DLZ014A 


DLZRRCOO 






DLZMPIOO 


2-21.1 


DLZ015I 


DLZRRCOO 


2-3.3, 2-3.9 




DLZOLI00 


2-5.3 


DLZ016I 


DLZDLOCO 




DLZ017I 


DLZRRCOO 


2-3.7 


DLZ018I 


DLZRRCOO 


2-3.7 


DLZ019I 


DLZRRCOO 


2-3.3, 2-3.9 


DLZ020I 


DLZDLOCO 


2-14.1 




DLZRDBLO 


2-16.1 


DLZ021I 


DLZDLOCO 






DLZRDBLO 


2-16.6 


DLZ022I 


DLZDLOCO 




DLZ023I 


DLZDLOCO 


2-14.1 


DLZ024I 


DLZDLOCO 
DLZDXMTO 





c 
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Message 


Module/ 


Figure 


Number 


Phase 


Number 


DLZ025I 


DLZDLOCO 


2-14.1 


DLZ026I 


DLZRRCOO 


2-3.8 


DLZ027I 


DLZDLOCO 


2-14.1 


DLZ028I 


DLZDLOCO 


2-14.1 


DLZ030I 


DLZOLI00 
DLZLOGPO 


2-5.8 


DLZ031I 


DLZOLI00 


2-5.1 


DLZ032A 


DLZOLI00 
DLZRDBL1 


2-5.4 


DLZ033I 


DLZISCOO 


2-6.18,2-6.19 


DLZ037I 


DLZEIPBO 


2-46.4, 2-47.21 




DLZEIPOO 


2-48.25, 2-48.29 


DLZ038I 


DLZEIPBO 


2-46.5, 2-46.6 




DLZEIPB1 


2-47.22 




DLZMPIOO 




1 


DLZODP 


2-6.12,2-6.13 




DLZRRCOO 


2-3.4 




DLZSTRBO 


2-51.2 


DLZ039I 


DLZOLI00 




DLZ040A 


DLZOLI00 




DLZ041I 


DLZOLI00 




DLZ042I 


DLZOLI00 


2-5.2 


DLZ043I 


DLZOLI00 


2-5.2 


DLZ044I 


DLZOLI00 


2-5.2 


DLZ045I 


DLZOLI00 


2-5.3 


DLZ046I 


DLZOLI00 


2-5.3 


DLZ047I 


DLZOLI00 


2-5.3 


DLZ048I 


DLZOLI00 


2-5.3 


DLZ049I 


DLZOLI00 


2-5.3 


DLZ052I 


DLZOLI00 


2-5.5 


DLZ053I 


DLZOLI00 


2-5.5 


DLZ054I 


DLZOLI00 


2-5.5 


DLZ055I 


DLZOLI00 


2-5.4 


DLZ056I 


DLZOLI00 


2-5.4 


DLZ057I 


DLZOLI00 


2-5.5 


DLZ058I 


DLZOLI00 
DLZRRCOO 


2-5.6, 2-5.7 


DLZ059A 


DLZMPIOO 




DLZ060I 


DLZOLIOO 


2-5.9 


DLZ061A 


DLZOLI00 


2-5.9 


DLZ062I 


DLZODP 




DLZ063I 


DLZODP 




DLZ064I 


DLZOLIOO 




DLZ065I 


DLZODP 




DLZ066I 


DLZODP 




DLZ067I 


DLZODP 


2-6.2 


DLZ068I 


DLZODP 




DLZ069I 


DLZODP 




DLZ070I 


DLZODP 


2-6.2 


DLZ071I 


DLZOLIOO 


2-5.2 


DLZ072I 


DLZOLIOO 


2-5.3 
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Message 


Module/ 


Figure 


Number 


Phase 


Number 


DLZ073I 


DLZOLI00 


2-5.3 


DLZ074I 


DLZOLI00 


2-5.3 


DLZ075I 


DLZRRCOO 


2-3.9 


DLZ076A 


DLZRDBLO 


2-16.7 


DLZ077I 


DLZRDBLO 


2-16.1, 2-16.7 


DLZ078I 


DLZRRCOO 


2-3.9 


DLZ079I 


DLZRDBLO 


2-16.7 


DLZ080I 


DLZMSTPO 


2-22.1 


DLZ081I 


DLZMPIOO 


2-21.1 


DLZ082I 


DLZBPCOO 


2-20.1,2-20.5 




DLZMPCOO 


2-19.2, 2-19.4 through 2-19.8 




DLZMPIOO 


2-21.1,2-21.3 


DLZ083I 


DLZMSTRO 


2-18 


DLZ084I 


DLZBPCOO 


2-20.2, 2-20.4 




DLZMPCOO 


2-19.4,2-19.10 




DLZMPIOO 


2-21.1,2-21.3 


DLZ085I 


DLZMPIOO 


2-21.1 


DLZ086I 


DLZMPCOO 


2-19.7 


DLZ087A 


DLZMPIOO 


2-21.1 


1 DLZ088I 


DLZMPIOO 


2-21.1 


DLZ089I 


DLZMPIOO 


2-21.1 


DLZ090I 


DLZMPIOO 


2-21.2 


DLZ091I 


DLZMPIOO 


2-21.3 


DLZ092I 


DLZMPIOO 


2-21.3 


DLZ093I 


DLZMPCOO 


2-19.2 


DLZ094I 


DLZMPCOO 


2-19.8 


DLZ095I 


DLZMPIOO 


2-21.1 


DLZ096I 


DLZMPIOO 


2-21.5 


DLZ097I 


DLZMSTRO 


2-18 


DLZ098I 


DLZMPIOO 


2-21.3 


DLZ099I 


DLZMPIOO 


2-21.1 


DLZ100I 


DLZMPIOO 


2-21.3 


DLZ101I 


DLZMSTRO 


2-18 


DLZ102I 


DLZMPIOO 


2-21.3 


DLZ103I 


DLZBPCOO 


2-20.5 


DLZ104I 


DLZMPCOO 


2-19.9 




DLZBPCOO 


2-20.6 


DLZ105I 


DLZRRCOO 






DLZBNUCO 


2-4.1 




DLZMPIOO 






DLZISCOO 


2-6.21 


DLZ106I 


DLZQUEFO 




DLZ108I 


DLZQUEFO 




DLZ1121 


DLZRRCOO 


2-3.3 


DLZ113I 


DLZOLIOO 


2-5.5 


DLZ114I 


DLZOLIOO 






DLZRRCOO 


2-3.3 


DLZ115I 


DLZOLIOO 


2-5.9 




DLZRRCOO 


2-3.9, 2-3.3 


DLZ116I 


DLZRRCOO 


2-3.3 


DLZ117I 


DLZRRCOO 


2-3.9, 2-3.3 






1... 



'v 
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C 



( 



Message 


Module/ 


Figure 


Number 


Phase 


Number 


DLZ118I 


DLZOLI00 


2-5.1 


DLZ119I 


DLZOLI00 


2-5.5 


DLZ120I 


DLZTRACE 




DLZ121I 


DLZMPCOO 




DLZ122I 


DLZMPCOO 


2-19.1 


DLZ123I 


DLZBPCOO 
DLZMPCOO 
DLZMPURO 




DLZ124I 


DLZMPIOO 




DLZ125I 


DLZMPIOO 




DLZ126I 


DLZMPIOO 




DLZ127I 


DLZMPCOO 


2-19.11 


DLZ128I 


DLZMPCOO 






DLZMPURO 


2-22.2 


DLZ129I 


DLZMPIOO 




DLZ130I 


DLZMPCOO 






DLZMPURO 


2-22.2 


DLZ131I 


DLZMPIOO 




DLZ132I 


DLZMPIOO 




DLZ133I 


DLZMPIOO 




DLZ260I 


DLZBNUCO 


2-4.1 




DLZODP 


2-6.6 


DLZ261I 


DLZBNUCO 


2-4.1 




DLZODP 


2-6.6 


DLZ262I 


DLZRRCOO 


2-3.8 




DLZOLIOO 


2-5.9 


DLZ263I 


DLZRRCOO 


2-3.7 


DLZ264I 


DLZRDBL1 




1 DLZ265I 


DLZRDBL1 




DLZ266I 


DLZRRCOO 


2-3.7 




DLZOLIOO 


2-5.3 


DLZ267I 


DLZQUEFO 


2-23 


DLZ268I 


DLZDDLEO 




| DLZ280I 


DLZSTTL 


2-43 


DLZ281I 


DLZSTTL 




DLZ282I 


DLZSTTL 




DLZ301I 


DLZUDMPO 
DLZURDBO 






DLZURGLO 


2-32 




DLZURGUO 


2-31 




DLZURRLO 






DLZUC350 






DLZURULO 




DLZ302I 


DLZUDMPO 


2-25 




DLZURULO 


2-29 




DLZURRLO 


2-30 




DLZURCCO 


2-27.1 


DLZ303I 


DLZUDMPO 


2-25 




DLZURULO 


2-29 


DLZ304I 


DLZUDMPO 


2-25 




DLZURULO 


2-29 
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Message 


Module/ 


Figure 


Number 


Phase 


Number 




DLZURCCO 


2-27.1 


DLZ305I 


DLZUDMPO 
DLZURDBO 
DLZURULO 




DLZ306I 


DLZURULO 
DLZURDBO 
DLZUDMPO 




DLZ307I 


DLZURULO 


2-29 




DLZUDMPO 


2-25 




DLZURRLO 


2-30 




DLZURCCO 


2-27.1 


DLZ308I 


DLZUDMPO 


2-25 




DLZURULO 


2-29 


DLZ309I 


DLZUDMPO 


2-25 




DLZURULO 


2-29 




DLZURRLO 


2-30 




DLZRDBLO 




DLZ310I 


DLZUDMPO 


2-25 




DLZURULO 


2-29 




DLZURRLO 


2-30 




DLZRDBLO 






DLZURCCO 


2-27.1 




DLZBACKO 






DLZLPCCO 






DLZUCCTO 




DLZ311I 


DLZURRLO 






DLZURGUO 


2-31 




DLZURGLO 


2-32 




DLZLOGPO 






DLZTPRTO 




DLZ312I 


DLZURDBO 




DLZ313I 


DLZURDBO 




DLZ314I 


DLZURDBO 




DLZ315I 


DLZURGUO 


2-31 




DLZURGLO 


2-32 


DLZ316I 


DLZURDBO 
DLZUDMPO 




DLZ317I 


DLZURDBO 




DLZ318A 


DLZURGUO 


2-31 




DLZURGLO 


2-32 


DLZ319I 


DLZURULO 
DLZURGUO 
DLZUDMPO 






DLZURGLO 


2-32 




DLZURDBO 




i 


DLZURRLO 




1 


DLZLOGPO 




DLZ320I 


DLZURULO 
DLZURGUO 
DLZUDMPO 




DLZ321I 


DLZURULO 








X. 
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DLZUDMPO 
DLZURRLO 


Number 


DLZ322I 


DLZURDBO 




DLZ323I 


DLZURDBO 




DLZ324I 


DLZURDBO 




DLZ325I 


DLZURDBO 




DLZ326I 


DLZURDBO 




DLZ327I 


DLZURDBO 




DLZ328I 


DLZURDBO 




DLZ329I 


DLZURGUO 


2-31 


DLZ330I 


DLZURDBO 




DLZ331I 


DLZURDBO 




DLZ332I 


DLZURDBO 




DLZ333I 


DLZURDBO 




, DLZ334I 


DLZURDBO 




1 


DLZURULO 


2-29 


DLZ335I 


DLZURDBO 




DLZ336I 


DLZURDBO 




DLZ337I 


DLZURDBO 




DLZ338I 


DLZURDBO 




DLZ339I 


DLZURDBO 
DLZTPRTO 






DLZURGLO 


2-32 




DLZURGUO 


2-31 




DLZBACKO 






DLZLOGPO 






DLZUCUMO 






DLZUDMPO 




DLZ340I 

1 


DLZURDBO 
DLZUDMPO 




DLZ341I 


DLZURDBO 




DLZ342I 


DLZBACKO 
DLZLPCCO 






DLZURCCO 


2-27.1 




DLZUCCTO 




DLZ343I 


DLZURDBO 




DLZ344I 


DLZURRLO 
DLZURULO 


2-30 


DLZ345I 


DLZURGUO 
DLZUDMPO 
DLZURULO 


2-31 


DLZ346I 


DLZURGUO 




DLZ348I 


DLZURGUO 


2-31 




DLZURGLO 


2-32 


DLZ349I 


DLZURGUO 


2-31 


DLZ350I 


DLZUDMPO 




DLZ351I 


DLZURGLO 


2-32 


DLZ353I 


DLZURRLO 




DLZ356I 


DLZURRLO 




DLZ357I 


DLZURULO 
DLZUDMPO 
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DLZ358I 


DLZURULO 




DLZ359I 


DLZURGUO 


2-31 


DLZ360I 


DLZUCCTO 




DLZ361I 


DLZUCCTO 




DLZ363I 


DLZUCCTO 




DLZ364I 


DLZUCCTO 




DLZ365I 


DLZUCCTO 




DLZ366I 


DLZUCCTO 
DLZURDBO 




DLZ367I 


DLZUCCTO 




DLZ368I 


DLZURGLO 


2-31 




DLZURGUO 


2-32 


DLZ369I 


DLZUCCTO 
DLZUC150 




DLZ370I 


DLZURGLO 


2-32 


DLZ371I 


DLZUC150 




DLZ372I 


DLZURCCO 
DLZLPCCO 
DLZBACKO 
DLZUCCTO 


2-27.1 


DLZ373I 


DLZUC350 




DLZ374I 


DLZUC150 
DLZUC350 




DLZ375I 


DLZUC350 




DLZ376I 


DLZURGLO 


2-32 


DLZ377I 


DLZURGUO 




DLZ380I 


DLZURGUO 


2-31 




DLZURGLO 


2-32 


DLZ381I 


DLZURGUO 


2-31 




DLZURGLO 


2-32 


DLZ382I 


DLZURULO 




DLZ383I 


DLZURULO 




DLZ384I 


DLZUCUMO 

DLZURDBO 

DLZUDMPO 

DLZLOGPO 

DLZBACKO 






DLZURGLO 


2-32 




DLZURGUO 


2-31 


DLZ385I 


DLZUCUMO 






DLZURGLO 


2-32 




DLZURGUO 


2-31 




DLZBACKO 






DLZLOGPO 






DLZUDMPO 






DLZURDBO 




DLZ386I 


DLZURGUO 


2-31 




DLZURGLO 


2-32 


DLZ387I 


DLZURGLO 




1 DLZ388I 


DLZURGLO 




DLZ389I 


DLZURGLO 


2-32 



4 ^ 






^t~>k. 
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DLZURRLO 




DLZ390I 


DLZUC150 






DLZLOGPO 




DLZ391I 


DLZUDMPO 






DLZURDBO 






DLZURULO 






DLZURRLO 






DLZBACKO 






DLZLOGPO 






DLZUC150 






DLZUC350 






DLZURPRO 


2-35 




DLZURGSO 


2-36 




DLZURGUO 






DLZURG10 


2-37 




DLZURGPO 






DLZUCCTO 






DLZTPRTO 




DLZ392I 


DLZURULO 






DLZURGUO 


2-31 




DLZURRLO 




DLZ393I 


DLZURRLO 




DLZ394I 


DLZURRLO 






DLZURDBO 




DLZ395I 


DLZBACKO 




DLZ396I 


DLZRDBCO 
DLZBACKO 




DLZ397I 


DLZRDBCO 
DLZBACKO 




DLZ398I 


DLZRDBCO 
DLZBACKO 




DLZ399I 


DLZRDBCO 
DLZBACKO 




DLZ400I 


DLZURGUO 


2-31 


DLZ401I 


DLZBACKO 
DLZLPCCO 
DLZUCCTO 
DLZURCCO 




DLZ402I 


DLZBACKO 
DLZURDBO 
DLZUC150 




DLZ404I 


DLZBACKO 

DLZLOGPO 

DLZURDBO 

DLZUC150 

DLZUDMPO 




DLZ405I 


DLZBACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 




DLZ406I 


DLZBACKO 
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DLZLOGPO 
DLZURDBO 
DLZUC150 


Number 


DLZ407I 


DLZLPCCO 
DLZTPRTO 
DLZURCCO 
DLZBACKO 




DLZ408I 


DLZBACKO 




DLZ409I 


DLZLPCCO 




DLZ410I 


DLZLPCCO 




DLZ411I 


DLZLPCCO 




DLZ412I 


DLZLPCCO 




DLZ413I 


DLZLPCCO 




DLZ414I 


DLZLPCCO 
DLZURCCO 
DLZTPRTO 




DLZ415I 


DLZLPCCO 
DLZURCCO 




DLZ416I 


DLZLOGPO 
DLZLPCCO 


2-40.1 


DLZ417I 


DLZLOGPO 




DLZ418I 


DLZLOGPO 




DLZ419I 


DLZLOGPO 
DLZUDMPO 
DLZURRLO 
DLZURULO 




DLZ420I 


DLZLOGPO 




DLZ421I 


DLZLOGPO 




DLZ422I 


DLZLOGPO 
DLZUDMPO 
DLZURRLO 
DLZURULO 




DLZ423I 


DLZLOGPO 




DLZ424I 


DLZLOGPO 




DLZ425I 


DLZLOGPO 




DLZ426I 


DLZLPCCO 




DLZ427I 


DLZLOGPO 




DLZ428I 


DLZLOGPO 




DLZ429I 


DLZLOGPO 




DLZ430I 


DLZLPCCO 




DLZ432I 


DLZLPCCO 




DLZ433I 


DLZLPCCO 




DLZ434I 


DLZLPCCO 




DLZ435I 


DLZBACKO 

DLZLPCCO 

DLZUCCTO 

DLZUDMPO 

DLZURCCO 




DLZ436I 


DLZBACKO 
DLZLPCCO 
DLZUCCTO 





if 



4 x ' 






( 
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DLZURCCO 


Number 


DLZ437I 


DLZLPCCO 
DLZUCCTO 
DLZURCCO 




DLZ440I 


DLZTPRTO 




DLZ442I 


DLZTPRTO 




DLZ443I 


DLZTPRTO 




DLZ445I 


DLZTPRTO 




DLZ446I 


DLZTPRTO 




DLZ447I 


DLZTPRTO 




DLZ448I 


DLZTPRTO 




DLZ449I 


DLZTPRTO 




DLZ450I 


DLZTPRTO 




DLZ451I 


DLZTPRTO 




DLZ452I 


DLZTPRTO 




DLZ453I 


DLZTPRTO 




DLZ454I 


DLZTPRTO 




DLZ476I 


DLZDLAOO 






DLZISCOO 


2-6.19 


DLZ500I 


DLZEXDF 






DLZEXDFP 


2-34.1 


DLZ501I 


DLZEXDF 






DLZEXDFP 


2-34.2 


DLZ502I 


DLZEXDF 






DLZEXDFP 


2-34.1 


DLZ503I 


DLZEXDF 






DLZEXDFP 


2-34.2 


DLZ504I 


DLZEXDF 






DLZEXDFP 


2-34.12 


DLZ505I 


DLZEXDF 






DLZEXDFP 


2-34.1 


DLZ506I 


DLZEXDF 






DLZEXDFP 


2-34.12 


DLZ507I 


DLZEXDF 






DLZEXDFP 


2-34.3 


DLZ570I 


DLZDLBL3 






DLZUACBO 


2-33.18 


DLZ571I 


DLZUACBO 


2-33 


DLZ572I 


DLZDLBLO 
DLZDLBL1 




DLZ573I 


DLZDLBLO 
DLZDLBL1 




DLZ574I 


DLZUACBO 


2-33 


DLZ575I 


DLZDLBD 
DLZDLBP 






DLZDLBPP 


2-33.4, 2-33.8 




DLZDLBDP 


2-33.28, 2-33.21 




DLZEXDF 






DLZEXDFP 


2-34.7 


DLZ576I 


DLZDLBDP 


2-33.21, 2-33.28 




DLZDLBPP 


2-33.4, 2-33.8 
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DLZEXDFP 


2-34.1,2-34.7 


DLZ577I 


DLZDLBPP 


2-33.4 




DLZEXDFP 


2-34.1 


DLZ578I 


DLZDLBD 
DLZDLBP 






DLZDLBDP 


2-33.21, 2-33.29 




DLZDLBL3 


2-33.14 




DLZDLPP 






DLZEXDF 






DLZEXDFP 


2-34, 2-34.6, 2-34.8 




DLZUACBO 


2-33 


DLZ583I 


DLZUACBO 




DLZ584I 


DLZUACBO 




DLZ585I 


DLZUACBO 




DLZ587I 


DLZUACBO 


2-33 


DLZ588I 


DLZUACBO 


2-33 


DLZ589I 


DLZUACBO 


2-33 


DLZ600I 


DLZPRCT2 




DLZ602I 


DLZPRPAR 


2-44.8 


DLZ603I 


DLZPRPAR 


2-44.8 


DLZ604I 


DLZPRPAR 


2-44.8 




DLZPRDBD 


2-44.4 


DLZ605I 


DLZPRPAR 


2-44.8 


DLZ606I 


DLZPRPAR 


2-44.8 


DLZ608I 


DLZPRPAR 


2-44.8 


DLZ609I 


DLZPRPAR 


2-44.8 


DLZ610I 


DLZPRPAR 


2-44.8 


DLZ611I 


DLZPRPAR 


2-44.8 


DLZ612I 


DLZPRPAR 


2-44.8 




DLZPRDBD 


2-44.4 


DLZ613I 


DLZPRDBD 


2-44.4 




DLZPRPAR 


2-44.8 


DLZ614I 


DLZPRDBD 


2-44.4 




DLZPRPAR 


2-44.8 


DLZ615I 


DLZPRDBD 


2-44.4 




DLZPRABC 


2-44.2 




DLZPRDLI 


2-44.14 




DLZPRWFM 


2-44.13 


DLZ616I 


DLZPRDBD 


2-44.4 


DLZ617I 


DLZPRDBD 


2-44.4 


DLZ618I 


DLZPRDBD 


2-44.4 


DLZ623I 


DLZPRABC 


2-44-2 


DLZ626I 


DLZPRCT2 




DLZ627I 


DLZPRPSB 


2-44.5 


DLZ633I 


DLZPRPAR 




DLZ634I 


DLZPRCT2 


2-44-7 


DLZ635I 


DLZPRCT1 
DLZPRERR 


2-44.1 


DLZ636I 


DLZPRCT2 


2-44.7 




DLZPRDLI 


2-44.14 




DLZPRERR 





f~~ 









o 



6-12 DL/I DOS/VS Logic Manual, Volumel 



licensed Material — Property of IBM 



C 



Message 


Module/ 


Figure 


Number 


Phase 


Number 


DLZ639I 


DLZPRCT2 
DLZPRCTl 
DLZPRUPD 


2-44.7 


DLZ641I 


DLZPRURC 
DLZPRDBD 
DLZPRERR 




DLZ642I 


DLZPRSTW 


2-44.15 


DLZ643I 


DLZPRURC 


2-44.12 


DLZ644I 


DLZPRURC 


2-44.12 


DLZ645I 


DLZPRDBD 
DLZPRURC 


2-44.4 


DLZ646I 


DLZPRURC 


2-44.12 


DLZ647I 


DLZPRSTC 


2-44-11 


DLZ648I 


DLZPRSTC 


2-44.11 


DLZ649I 


DLZPRSTC 


2-44.11 


DLZ650I 


DLZPRUPD 


2-44.10 


DLZ651I 


DLZPRDLI 


2-44.14 


DLZ652I 


DLZPRDLI 




DLZ653I 


DLZPRURC 


2-44.12 




DLZPRSCC 


2-44.9 




DLZPRUPD 


2-44.10 




DLZPRDLI 




DLZ655I 


DLZPRDLI 


2-44.14 


DLZ659I 


DLZPRUPD 


2-44.10 


DLZ772I 


DLZDXMTO 




DLZ796I 


DLZDLDOO 




DLZ797I 


DLZDDLEO 




DLZ798I 

1 


DLZDLRGO 
DLZDLRDO 
DLZDLRCO 




DLZ799I 


DLZDLDOO 
DLZCPYIO 




DLZ800I 


DLZDLRFO 




DLZ801I 


DLZDLRBO 
DLZDLRFO 




DLZ802I 
1 


DLZDLDOO 
DLZDHDSO 




DLZ803I 


DLZDLDOO 




DLZ804I 


DLZDLDOO 




DLZ805I 


DLZDLDOO 




DLZ806I 


DLZDLDOO 
DLZCPYIO 
DLZDHDSO 




DLZ807I 


DLZDLDOO 




DLZ808I 


DLZDLDOO 




DLZ809I 


DLZDLDOO 




DLZ830I 


DLZDHDSO 




DLZ831I 


DLZDHDSO 


2-13.5 


DLZ832I 


DLZDHDSO 




DLZ841I 


DLZDBHOO 




DLZ844I 


DLZDBH02 
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DLZ845I 


DLZDBHOO 




DLZ847I 


DLZDBHOO 




DLZ848I 


DLZDBHOO 




DLZ850I 


DLZDDLEO 




DLZ855I 


DLZDDLEO 




DLZ860I 


DLZDDLEO 
DLZDXMTO 




DLZ861I 


DLZDDLEO 




DLZ862I 


DLZDDLEO 




DLZ863I 


DLZDDLEO 




DLZ864I 


DLZDDLEO 




DLZ868I 


DLZDXMTO 




DLZ869I 


DLZDXMTO 




DLZ870I 


DLZDXMTO 




DLZ888I 


DLZBACKO 




DLZ890I 


DLZBACKO 




DLZ894I 


DLZBACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 




DLZ900I 


DLZDLBLl 




DLZ901I 


DLZDLBL2 




DLZ902I 


DLZDLBL2 




DLZ903I 


DLZDLBL2 




DLZ904I 


DLZDLBLO 




DLZ905I 

1 


DLZDLBLO 
DLZDLBLl 
DLZDLBL2 
DLZDLBL3 
DLZDLBLC 


2-33.15 




DLZUACBO 


2-33 




DLZUAMBO 


2-33.18,2-33.19 




DLZDPSBO 


2-33.20 


DLZ906I 


DLZDLBLO 




DLZ907I 


DLZDLBL3 




DLZ908I 


DLZDLBL3 




DLZ909I 


DLZDLBL2 


2-33.13 


DLZ910I 


DLZDLBLO 
DLZDLBLl 




DLZ911I 


DLZDLBL2 




DLZ912I 


DLZDLBLl 


2-33.11 


DLZ913I 


DLZDLBLl 




DLZ914I 


DLZDLBL2 




DLZ915I 


DLZDLBLl 




DLZ916I 


DLZDLBLl 




DLZ917I 


DLZDLBLl 




DLZ918I 


DLZDLBL2 




DLZ919I 


DLZDLBL2 




DLZ920I 


DLZDLBLl 




DLZ921I 


DLZDLBLO 




DLZ922I 


DLZDLBLl 








,4" 



o 



6-14 DL/I DOS/VS Logic Manual, Volume! 



Licensed Material — Property of IBM 



( 



C 



t. 



Message 


Module/ 


Figure 




Number 


Phase 


Number 




DLZ923I 


DLZDLBL1 






DLZ924I 


DLZDLBL1 






DLZ925I 


DLZDLBL1 






DLZ926I 


DLZDLBD 








DLZDLBDP 


2-33.22, 2-33.23, 2-33.25, 


2-33.30 




DLZDLBP 








DLZDLBPP 


2-33.9 






DLZDLBLO 








DLZDLBL1 








DLZDLBL2 








DLZDLBL3 






! 


DLZUAMBO 


2-33.18, 2-33.19 




DLZ927I 


DLZDLBL1 






DLZ928I 


DLZDLBL1 






DLZ929I 


DLZDLBLO 
DLZDLBL1 






| DLZ930I 


DLZDLBL2 






DLZ931I 


DLZDLBL1 






DLZ932I 


DLZDLBL1 






DLZ933I 


DLZDLBL3 






DLZ934I 


DLZDLBL2 






DLZ935I 


DLZDLBL2 






DLZ936I 


DLZDLBL1 






DLZ937I 


DLZDLBL1 






DLZ938I 


DLZDLBL2 






DLZ939I 


DLZDLBL1 






DLZ940I 


DLZDLBL2 






DLZ941I 


DLZDLBL2 






DLZ942I 


DLZDLBL2 






DLZ943I 


DLZDLBL2 






DLZ944I 


DLZDLBL2 






DLZ945I 


DLZDLBLO 






DLZ946I 


DLZDLBL2 






DLZ947I 


DLZDLBL2 






DLZ948I 


DLZDLBL2 






DLZ949I 


DLZDLBL2 






DLZ952I 


DLZURPRO 






1 


DLZURGSO 


2-36 




DLZ953I 


DLZURGPO 






DLZ954I 


DLZURPRO 


2-35 






DLZURGSO 


2-36 






DLZURGIO 


2-37 






DLZURGPO 






1 DLZ955I 


DLZURGIO 
DLZURGPO 


2-37.2, 2-37.4 




| DLZ956I 


DLZURPRO 


2-35 




1 


DLZURGSO 


2-36 






DLZURGPO 






DLZ957I 


DLZURGSO 


2-36 






DLZURGIO 


2-37 




DLZ958I 


DLZURGSO 


2-36 
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DLZ959I 


DLZURGSO 
DLZURGPO 




DLZ960I 


DLZURGPO 




DLZ961I 


DLZURPRO 
DLZURGSO 
DLZURGIO 




DLZ962I 


DLZURPRO 


2-35 


DLZ963I 


DLZURPRO 


2-35 


DLZ964I 


DLZURPRO 


2-35 


DLZ965I 


DLZURPRO 


2-35 


DLZ966I 


DLZURPRO 


2-35 




DLZURGSO 


2-36 




DLZURGIO 


2-37 




DLZURGPO 




I DLZ967I 


DLZURGSO 


2-36 


DLZ968I 


DLZURGSO 
DLZURPRO 




1 


DLZURGIO 


2-37 




DLZURGPO 




DLZ969I 


DLZURGSO 


2-36 


DLZ970I 


DLZURGSO 


2-36 


DLZ971I 


DLZURGSO 


2-36 


DLZ972I 


DLZURGSO 




DLZ973I 


DLZURGSO 




DLZ974I 


DLZURGSO 




DLZ975I 


DLZURGSO 


2-36 


DLZ976I 


DLZURPRO 


2-35 


DLZ977I 


DLZURGIO 


2-37.2 


DLZ978I 


DLZURGIO 


2-37.2 


DLZ979I 


DLZURGIO 


2-37.2 


DLZ980I 


DLZURGIO 


2-37.2,2-37.4 


DLZ981I 


DLZURGIO 


2-37.4 


DLZ982I 


DLZURGIO 
DLZURGPO 


2-37 


DLZ983I 


DLZURGPO 




DLZ984I 


DLZURPRO 
DLZURGPO 


2-35 




DLZURGSO 


2-36 




DLZURGIO 


2-37 


DLZ985I 


DLZURPRO 


2-35 


DLZ989I 


DLZURGIO 


2-37.2 


DLZ990I 
1 


DLZURGSO 
DLZURGPO 
DLZURGIO 
DLZURPRO 




DLZ991I 


DLZURPRO 





t> 
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This table cross-references DL/I status codes (in alphabetic order) with the 
module(s) or phase(s) that can cause that status code to be set. The modules and 
phases are described in Section 3 of this publication. The status codes are 
described in DL/I DOS/VS Messages and Codes. 



Status Code 


Module 


AB 


DLZDLAOO 


AC 


DLZDLAOO 


AD 


DLZDLAOO, DLZISCOO 


AH 


DLZDLAOO 


AI 


DLZDLAOO, DLZDLDOO 


AJ 


DLZDLAOO 


AK 


DLZDLAOO, DLZDLRDO, DLZDLREO 


AM 


DLZDLAOO, DLZDLDOO 


AO 


DLZDLDOO, DLZDLROO, DLZDDLEO, DLZCPY10 


DA 


DLZDLDOO 


DJ 


DLZDLAOO 


DX 


DLZDLDOO 


GA 


DLZDLRCO 


GB 


DLZDLRAO, DLZDLRFO 


GE 


DLZDLRAO, DLZDLRCO, DLZDLRDO, DLZDLREO 


GK 


DLZDLRCO 


GP 


DLZDLRAO 


II 


DLZDLRDO, DLZDLRFO, DLZDDLEO 


IX 


DLZDDLEO 


KA 


DLZCPY10 


KB 


DLZCPY10 


KC 


DLZCPY10 


KD 


DLZCPYIO 


KE 


DLZCPY10 


LB 


DLZDLAOO, DLZDDLEO 


LC 


DLZDLAOO 


LD 


DLZDLAOO 


LE 


DLZDLAOO 


NA 


DLZDXMTO 


NE 


DLZDXMTO 


NI 


DLZDXMTO 


NO 


DLZDXMTO 


RX 


DLZDLDOO 


TA 


DLZEIPOO 


TB 


DLZEIPOO 


TC 


DLZEIPOO 


TE 


DLZEIPOO 


TF 


DLZEIPOO 


TG 


DLZEIPOO 


TH 


DLZEIPOO 


TI 


DLZEIPBO, DLZEIPOO 


TJ 


DLZEIPOO 


TK 


DLZEIPOO 


TL 


DLZEIPOO 


TN 


DLZEIPB1, DLZEIPOO 
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Status Code 


Module 


TO 


DLZEIPB1, DLZEIPOO 


TP 


DLZEIPB1, DLZEIPOO 


VI 


DLZDLAOO 


V2 


DLZEIPB1, DLZEIPOO 


V3 


DLZEIPB1, DLZEIPOO 


V4 


DLZEIPB1, DLZEIPOO 


V5 


DLZEIPB1, DLZEIPOO 


V8 


DLZEIPB1, DLZEIPOO 


XD 


DLZDLA01 


XH 


DLZDLAOO 


XR 


DLZMPIOO 









[4 
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This section consists of the following appendixes: 

Appendix A: Low-Level Code/Continuity Checking in DL/I. 

Appendix B: DBD Generation. 

Appendix C: PSB Generation. 

Appendix D: DL/I Macros 
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Appendix A: Low-Level Code/Continuity Check in DL/I 

Flow of Control ^ 

Low-Level Code/Continuity Check (LLC/CC) in DL/I is used as a subroutine of 
a user- written application program that runs under DOS/VS. Control passes to 
and from the subroutine using standard calls. 

LLC/CC in DL/I is a single control section (CSECT) which is structured into 
seven modules (see Figure 7-1 on page 7-3). The entry modules 000 for update 
and 001 for initial generation of low-level codes have multiple entry points for call 
statements issued by the user- written application program, that is, a separate entry 
point for each source language that is supported. All modules have only a single 
exit point, all lower level modules 002 through 006 are only entered at one point. 

All modules assemble and issue DL/I calls. The entry point for DL/I depends 6n 

the source language that is identified by the entry point into LLC/CC in DL/1. r 

The language bits in the LLC/CC execution control block (LECB) identify the 

source language of the application program. If an unexpected status code of DL/I 

is reported in the appropriate PCB, the error bits in the LECB are turned on, and 

control is routed back directly to the entry modules 000 or 001. 

LLC/CC in DL/I consists of the following modules: 

• Module 000 is the entry module for maintenance of low level codes. It passes 
control to module 002 for execution. 

• Module 001 is the entry module for initial generation of low level codes. It 
passes control to module 002 for execution. 



V_^ 



^ 



y 



Module 002 is the common mainline control module. It follows down a 

hierarchical path of a product structure. For actual explosion, control is passed 

to module 003. If a particular hierarchical path is exhausted, module 004 is 

executed to process a parallel path on the same hierarchical level. If all parts 

on the same level are processed, module 005 steps up one level to identify a 

parallel path on the higher level. If the original starting level is reached, the 

complete structure is processed, and control is returned to module 000 or 001. /f 

Module 002 also detects loops and executes continuity check recovery in L 

module 006. 

Module 003 explodes a particular part into all its components. Control is 
passed from and to module 002. 

Module 004 removes the part which has previously been processed from the 
hierarchical path thus opening a new hierarchical path via the next parent part 
on the same level. Control is passed from and to module 002. 

Module 005 steps up one level and removes the higher level part from the 
hierarchical path to open another path. Control is passed from and to module 
002. If module 002 is not able to follow a new path on this level, module 005 
may be executed repetitively. 

Module 006 handles restoring of old low-level codes if a continuity check is /jT^ 

detected. Control is passed to and from module 002. \^J 
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For a more detailed description, see the relevent HIPO charts at the end of 
Appendix A. 



Entry points 
DLZNNCA 
DLZNNCC 
DLZNNCP 



003 

Explosion of a Part 



000 

Maintenance of 
Low Level Codes 



Entry points 
DLZNNGA 
DLZNNGC 
DLZNNGP 



002 

Vertical Explosion 

Control 



004 

Next parent on 

same level 



001 

Initial Generation of 

Low Level Codes 



005 

Next parent on 

higher level 



006 

Continuity Error 

Handler 



C 



Figure 7-1. Structure of LLC/CC in DL/I 



Modification Aids 



External Names 



LLC/CC in DL/I uses external names in the directories and libraries of DOS/VS. 
The following table presents a list of all external names which are used. The user 
should obtain a DSERV listing to avoid duplicate names. 



Type of program 


SSL 


RL 


CIL 


A. books 


E. books 


Directory 
entries 


Entry 
points 


Execution program 

Initialization 
program for the 
control data base 


DLZNN 
DLZNNICT 


DLZNN 
DLZNNICT 


DLZNN* 


DLZNNCA* 
DLZNNCC* 
DLZNNCP* 
DLZNNEC* 
DLZNNGA* 
DLZNNGC* 
DLZNNGP* 


DLZNNICT 



May be modified by the user during customization. 
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LLC/CC Execution Control Block (LECB) 

The LECB of LLC/CC in DL/I is the focal point for all information related to f ^ 

actual operation of the execution program. It consists of 16 bytes which are \ ma J > 

subdivided into 4 fullwords. An entry point DLZNNEC is provided so that an 
application program may access the contents of the LECB. 

The LECB contains the following information: 

1. Identification portion (fullwordO): 

Bytes through 3: C < LECB , =XT>3C5C3C2' 

This identifier facilitates location of the LECB in a main storage dump. 

2. Execution control portion (fullword 1): 
Byte 4: 

• Bits through 3: Run type bits 

/<r ^ 

Bit and bit 1: Reserved 

Bit 2: 1 if IG run V ~ y 

Bit 3: 1 if U run 

• Bits 4 through 7: Not used 
Byte 5: 

• BitsO through 3: Language bits 

Bit -Or Reserved (f 

Bit 1: 1 if Assembler ^ y 

Bit 2: 1 if COBOL 
Bit 3: 1 if PL/I 

• Bits 4 through 7: Not used 
Byte 6: Status byte 

• Bits through 3: Completion bits (mutually exclusive) /^ 

Bit 0: 1 if not completed, abnormal condition encountered 

Bit .1: 1 if component requires no change (U run only) 

Bit 2: 1 if part is already processed (IG run only) 

Bit 3: 1 if part has no components (IG run only, and only if bit 2 is off) 

Besides its function as an indicator, bitU also serves to transfer 
information whether a particular part in an explosion sequence has 
component parts. Bit 3 is turned off in module 002 before entering 
module 003. If no component parts are found during the execution of 
module 003, the bit is turned on. Upon return to module 002, the bit is 
tested to decide whether module 004 must be called. 

• Bits 4 through 7: Error bits, extending completion bit 0. A single error bit 
does not reflect a particular error condition, therefore, the hexadecimal 
representation of the total bit pattern in the status byte has to be analyzed. 
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Language Considerations 



X'80' Parent part not found 

X'8T Component part not found (U run only) 

X'84' Contifiuity check for parent part 

X'85' Continuity check for any component part 

X'87' Input parameter in error 

X'88' Unexpected DL/I status code for parts data base 

X'8A' Unexpected DL/I status code for control data base 

X'8C Both error conditions X'84' and X'88' 

X'8D' Both error conditions X'85' and X'88' 

X'8E' Both error conditions X'84' and X«8A' 

X'8F' Both error conditions X'85' and X'8A' 

Byte 7: Not used 

3. Parameter list portion (fullword 2): 

Bytes 8 through 11: Address constant pointing to the parameter list which has 
been previously submitted to DL/I by LLC/CC in DL/I. Contents is defined 
hexadecimal zeros prior to the first run through LLC/CC in DL/L The 
address constant is not affected by insertion of locators if the application 
program is written in PL/I. 

4. PCB save area portion (fullword 3): 

Bytes 12 through 15: Address constant pointing to a 64-byte save area for a 
PCB. This save area is initialized to blanks (X'40'), however, in case of an 
unexpected DL/I status code, the related PCB is saved into this save area. 
The PCB is stored left justified. If the length of the PCB exceeds 64 bytes, the 
exceeding data is truncated. 

The contents of the status bytes is externally represented by the return codes of 
LLC/CC in DL/I. 

IG stands for "initial generation of low level codes", U stands for "update of low 
level codes". 

The LECB is located at the very end of the code of LLC/CC in DL/I. Therefore, 
the last byte of LLC/CC in DL/I may be addressed DLZNNEC-bl5. 



During PSB generation, the source language of application programs using DL/I 
facilities is defined in the PSBGEN statements. While COBOL is handled like 
Assembler, the PCB has a different layout if PL/I is specified. Therefore, 
LLC/CC in DL/I has to use different entry points into DL/I depending on the 
source language of the invoking user-written application program. 

The entry routines of the execution program of LLC/CC in DL/I offer different 
entry points. The x identifies initial generation mode (G) or update mode (C). Six 
different entry points are available for transfer of control: 

• DLZNNxA and DLZNNxC are the entry points for application programs 
written in Assembler or COBOL, respectively. No special processing is 
required. 
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• DLZNNxP are the entry points for application programs written in the PL/I 
Optimizer language. Upon entry, the address constants in the parameter list 
pointing to the locators of the parameters transmitted are replaced by the 
addresses which are stored in the respective locators. 

For each source language, the appropriate language bit in the LLC/CC execution 
control block (LECB) is set upon entry. 

When a DL/I call is issued, the language bits are tested to specify the right entry 
point in DL/I: ASMTDLI, CBLTDLI, or PLITDLI. If the source language is 
PL/I, the parameter list is encoded to transfer address constants pointing to 
locators rather than pointing directly to the parameters. 



LLC/CC in DL/I contains a set of save areas which facilitate tracing main storage 
dumps. The most important save areas are: 

• Standard save area, addressed by register 13. Symbolic name is SAVE. 

• Return addresses for subroutines, that is, contents of register 14. Symbolic 
names are CALLSV, PARMJUSV, INSRSAVE, SETUPSV, M002SV through 
M006SV. Save areas M002SV through M006SV are reset to hexadecimal 
zeros when the respective modules M002 through M006 are left again. 

• Save area for the contents of register 1 when entering LLC/CC in DL/I, that 
is, address of the parameter list submitted from the application program. 
Symbolic name is R1SAVE. 

• Save area for the leftmost 240 bytes of a PCB if an unexpected DL/I status 
code is encountered. Symbolic name is PCBSAVE. The address of PCBSAVE 
is also available in fullword 3 of the LECB. 



R0 Work register 

Rl Work register, address of parameter lists during parameter transfer 

R2 Address of parameter list when preparing parameter transfer 

R5 Work register 

R6 Address of PCB for parts data base 

R7 Address of PCB for control data base 

R8 Base register 

R9 Second base register 

R12 Reserved 

Rl 3 Address^ of register save area 

R14 Standard return address 

R 1 5 Standard linkage register 



■f' N 



v_ 



zf ^ 



w 



HIPO Diagrams for LLC/CC 

The following HIPO diagrams describe the seven modules (000-006) of LLC. 



c 
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INPUT | 

PARTS PCB j 

CTL.-PCB | | 

1 | 

PAR. PART | | 



COHP. PARTI 



000 - MAINTENANCE OF LOW - LEVEL CODES 



This module is entered from an 
application program via CALL. 



I01J Obtain and adjust input 
data. 



| 02 j Read parent and component 
part, if not found, go to 
step 9. 



5E 



Increment the LLC of the 
parent part by 1 to obtain 
the initial LLC. Set 
actual LLC to initial LLC. 
if the actual LLC is not 
hiqher than the LLC of the 
component part, no 
processing is required and 
control is passed to step 
9. 



[ 04 ) Insert root segment LLCTL 
with key = X to start the 
control data base. 

fos] Insert dependent segments • 
into the control data base 
for parent part and for 
component part. 







LLC 

[initial ~J 

JACTUAL I 






CONTROL DB 



HIPOMAT 1.1 Diagram - 3.1.1-01 






I 01 1 The callinq application proqrara 

L I 

uses three different entry 
points for Assembler, COBOL or 
PL/I. A parameter list 
consisting of 6 pointers 
identifies 6 fields, U of them 
containing input data, 2 of them 
expectinq output data. 

fo5| The original LLC of the 

L J 

component is saved in an 
UPDHASTR sequent. A PABTBEXP 
segment for continuity check 
control with a key composed of 
hexa zeros plus the key of the 
parent part is inserted. The 
continuity check itself is 
explained in note 6 of 002 - 
VERTICAL EXPLOSION CONTROL. A 
PARTBEXP seqment for explosion 
control with a key composed of 
the actual LLC plus key of the 
component part is inserted. 



Routine! Label 



DLZNNCA 
DLZNNCC 
DLZNNCP 



Routine Label 



MAINTENANCE OF LOW - LEVEL CODES 



HIPOHAT 1.1 Diagram - 3.1.1-01 
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Processing 



fob] Replace the old LLC in the- 
component part by the 
actual LLC. 

[07] Execute LLC/CC in Dl/1. 



VERTICAL EXPLOSION) 

CONTROL j 

3. 1.3| 



Remove all control 
information from the 
control data base by 
deleting the root segment 
LLCTL *rith key = X. 



Set up return information .- 
Return to calling 
application program. 







/ 


\ 


k 


/ 


I . 


•W 


\ 


/ 


PARTS OB 




/ 


N 


\ 


A 


| ' 


-A 


\ 


B 


CONTROL D 


OUTP0T 








J RETURN CD. j 


J LOOP KEY 


J 










MAINTENANCE OF LOW - LEVEL CODES 



HIPOMAT 1.1 Diagram - 3.1.1-02 



rf" 



Notes 



1091 Return information is obtained 

from the status bits of the LECB 
and from the internal loop key 
field. 



I 



Routine Label 



Routine Label 



W 



000 - MAINTENANCE OP LOB - LEVEL CODES 



HIPOHAT 1.1 Diagra* - 3.1.1-02 
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INPUT 

[parts PCB ] 

CTL-PCB | | 

I PART I I 




This module is entered from an 
application program via CALL. 

foil Obtain and adjust input 
data. 



[oil Read part. If not found, 
qo to step 9. 

[o5] Test the LLC of the part. - 
If it is not 0, qc to steF 
8. Else set initial and 
actual LLC to 0. 

fou] The part is tested whether 
it has component parts. If 
no components are found, 
control is passed tc step 
9. 

\ol>] Insert root segment LLCTL - 
with key = X to start the 
control data base. 

foi] Insert a seqment PAETEEXP - 
with key composed of 
packed zeros, i.e., actual 
LLC plus part key. 



CONTROL DB 



HIPOHAT 1.1 Diagram - 3.1.2-01 



>*"% 
^w-^' 7 



I 01| The callinq application program 
has three entry points for 
Assembler, COBOL or PL/I. A 
parameter list consisting of 5 
pointers identifies 5 fields, 3 
of them containinq input data, 2 
of them expecting output data. 



1 04 1 A bit is set in the LECB to 

l~, J 

indicate that no component part 
exists. 



DLZNNGA 
DLZNNGC 
DLZNNGP 



001 - INITIAL GENERATION OP LOW - LEVEL CODES 



HIPOHAT 1.1 Diagraa - 3.1,2-01 
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Process in q 




for 



| Execute LLC/CC in DL/I. 



/L J\ 

< | ••! > | 002 
\r— 1/ I- 



fod 



VERTICAL EXPLOSION | 
CONTROL | 

J- 1 -!) 



j Remove all control 
information from the 
control data base by 
deleting the root segment 
LLCTL with key = X 



|09| Set up return information, 
Return to calling 
application program. 







00 1 - INITIAL GENERATION OF LOW - LEVEL CODES 



I 09 j Return information is obtained 

from the status bits of the LECB 
and from the internal loop key 
field. 



Ref | | Notes 
I i 

1, i 



CONTROL DB 



ET.-C0DE~j 
OOP KEY j 



HIPOMAT 1.1 Diagram - 3.1. 2-02 



Routine Label Ref 



if' 



4" 



00 1 - INITIAL GENERATION OP LON - IEVEL COOES 



HIPOBAT 1.1 Diagraa - 3.1.2-02 



c 
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Processing 



LLC 

Tactual 
I 

I INITIAL 



I 

I I 
I I 
I I 






V 7 "' 



CONTROL DB 



The actual low-level cede 
is used to identify the 
next part to be processed. 
A seqment PARTBEXP is read 
with key equal or qreater 
to LLC plus hex zercs. 



[02] If 



egment PARTBEXP is 
the actual LLC is 
exhausted. Control is 
passed to module 005. 



I NEXT PARENT ON | 

I HIGHER LEVEL. I 

3.1.3.3 



Upon return from 005, the 
actual LLC is tested. If 
it. is higher than the 
initial LLC, control is 
passed to step 1, else 
processinq is completed 
and control is passed to 
step 8. 



VERTICAL EXPLOSION CONTROL 



HIPOHAT 1.1 Diagram - 3.1.3-01 



J01| Vertical explosion control is 

L 1 

performed by means of PARTBEXP 
seqments. Each time a new 
component part is encountered 
with a low-level code which 
needs replacement, a PARTBEXP 
seqment - key = LLC + part key - 
is created. When qoinq down a 
product-structure tree, this 
step of LLC/CC in DL/I 
identifies a new component part 
to become a parent part within 
the recursive process of 
explosion. Explosion proceeds on 
a FIFO basis. 

1 02 1 Durinq previous explosions, no 
component part was found 
requirinq the replacement of its 
current low-level code, or no 
component part was found at all. 
Therefore, no seqment PARTBEXP 
was inserted. 

1 03 1 The initial low-level code was 

L J 

established either in module 000 
or in nodule 001, resp. 



Routine Label Ref 



VERTICAL EXPLOSION CONTROL 



HIPOMAT 1.1 Diagras - 3.1.3-01 
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| 04 | If a segment is found, 

read the root segment of 
the part. 

[05] Increment the actual LLC 
by 1 to post into the 
components of the new 
part. 

f()6] Perform continuity check 
and go to step 9, If the 
check fails, restore old 
LLC status in 006. 






< !••! 



| ERROR RECOVERY | 

J HANDLES | 

3.1.3.4J 



foTj Upon return from 006, 

control is passed tc step 
12. 



[actual ~~] 



LLC 

[actual ""] 



K_ 






CONTROL DB 

OUTPUT DATA 
fLOOP~KM 1 

I Efi 80 R* IN FO J 






VERTICAL EXPLOSION CONTROL 



HIPOMAT 1,1 .Diagram - 3.1,3-02 



Notes 



I 06 | The continuity check is 

performed using the segment type 
PARTBEXP, Each time a new part 
is becoming exploded, a segment 
is inserted which only consists 
of the part key preceded by 2 
bytes hexa zeros. If a part 
occurs twice in a particular 
hierarchical path, DL/I will 
renect the reguest for insertion 
because a segment with same key 
is already existing. LLC/CC in 
DL/I tests this condition and 
signals continuity check. 
Insertion is processed here. 
However if in updating mode, 
LLC/CC in DL/I inserts a 
PARTBEXP seqment of this type 
for the part identified by PARM3 
already in 000, step 5. 



Routine Label Ref 



1 



002 - VERTICAL EXPLOSION CONTROL 



HIPOMAT 1.1 Diagrai - 3,1.3-02 



c 
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Processing 



Toil If the continuity check 

i i 

did not indicate a locp, 

the actual part will be 

exploded into its 

component parts. 



003 



EXPLOSION OF A 
PART 

3.1.3.1 



[09] Upon return from 003, a 
test is made to detect 
whether the actual part 
has had component parts at 
all. If components were 
found, control is passed 
back tc step 1. 

Ho] Else, 004 is employed. 



NEXT PAfiENT ON 
SAME LEVEL 

3.1.3.2 



|11| Upon return, qo to step 1. 



I 12| Go back to higher level 
module 000 or 001 



002 - VERTICAL EXPLOSION CONTROL 



HIPOMAT 1.1 Diagram - 3.1.3-03 



c 



f09l A switch in the LFCB is used to 
transfer information whether a 
part, has component parts. The 
' switch is turned off before 
enterinq 003, i»e., it is 
assumed that the part has 
components. Upon return from 
003, the status of this switch 
is tested. If the switch is on, 
003 has indicated that the part 
does not have components. 



Routine Latel Kef 



002 - VERTICAL EXPLOSION CONTROL 



HIPOHAT 1.1 Diagraa - 3.1.3-03 
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Processing 
















/ 












1 .-_. 




M 




\ 




/ i 




PARTS 


DB 


i 

i 




LLC 




1 




[ ACTUAL 


1~ 











| 01) Bead the first or next 

component segment of the 
actual part. If not found, 
processing is completed 
and control is passed to 
step 6. 

[02] Compare actual LLC and LLC 
in the component. If the 
actual LLC is net higher, 
no further processing is 
reguired and control is 
passed back to step 1. 



|03| Save the old LLC of the 
component in an UFDKASTR 
segment. 



[04] Replace the old LLC of the- 
cotnponent by the actual 
LLC. 






> 

/I 

''I 



CONTROL DB 






v - y 



EXPLOSION OF A PART 



HIPOHAT 1.1 Diagram - 3.1.3.1-01 



I 01 1 If the no-cotaponent-f ound 

L J 

LECBSNOC condition was raised 
when retrieving the first, 
seqment, a switch indicates to 
002 that the actual part does 
not have any component parts at 
all and another part has to be 
selected for explosion. 



Routine Label Ref 



1.. 






003 - EXPLOSION OF A PART 



HIPOHAT 1.1 Diagram - 3.1.3.1-01 
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003 - EXPLOSION OF A PART 



c 



I OS I Insert a segment PARTBEXP 
with key composed of 
actual LLC plus PARTKEY of 
the component. Go tack to 
step 1. 

fofi] Go back to module CC2. 






I\ 
I •- 


A 


\ 


/ 


CONTROL 


DB 



HIPOMAT 1.1 Diagram - 3.1.3.1-02 



I Notes 


Routine 


Label 


Ref 


Notes 


Routine 


Label 


Ref 















003 - EXPLOSION OF A PART 



HIPOBAT 1.1 Diagram - 3.1.3.1-02 
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Processing 



I ACTUAL 



/ 


\ 


I . 


/ 


\ 


/ 


CONTROL 


DB 


LLC 




[actual 






I 

I 

I 
I 

I 

I 



CONTROL DB 



| 01 | Remove the actual part 
form the hierarchical 
path. 

foi] Delete segment PARTEEXP 
with key composed of hex 
zeros and the key of the 
actual part. 



}03| Decrement actual LLC by 1. 



|04l Remove the first segment 

PARTEEXP with key = actual 
LLC ♦ hex zeros since it 
has been completely 
exploded. 

[oil Return to module 002. 







V, 



004 - NFXT PARENT ON SA«E LEVEL 



HIPOMAT 1.1 Diagram - 3.1.3.2-01 



|02| A part may occur multiple times 
within a product-structure tree. 
However, it must not pccur twice 
within a hierarchical path. 
Therefore, if a hierarchical 
path is left or is modified, all 
PARTREXP segments for continuity 
check related to branches which 
have become obsolete will be 
removed. 

foUf When returninq to step 1 in 

module 002, the next part on the 
same level will be read. Step 3 
in 004 neutralizes step 4 in 
002. 



Routine Label 



Routine Label Sef 



\y 



v 



004 - NEXT PARENT ON SAME LEVEL 



HIPOMAT 1.1 Diagram - 3.1.3.2*01 



o 
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Prccessinq 
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T / 



CONTROL DB | 

I 
I 
I 



[actual ] ' 



/ 

l\ 
I . 

\ 



-./ 



/ I 

. . I 

I 

CONTROL DB j 

j_ 

[part key 1 



01 l Decrement the actual LLC 
by 1. 



[02] Delete the first seqment 
PARTBEXP identified by a 
key composed of the actual 
LLC and of hex zeros. 



| 3 ) Delete the segment 

PARTF3EXP identified by a 
key composed of hex zeros 
and the part key retrieved 
in step 2. 



ro»i 



Return to module C02 



LLC 

Tactual 



TUAL j 



[part key ] 



HIPOMAT 1.1 Diagram - 3.1.3.3-01 



I 01 1 This allows to continue in 

module 002 at step 1 on the next 
hiqher, i.e., numerically lower 
level. 

1 2 1 A part may occur multiple times 

L J 

within a product-structure tree. 
However, it must not occur twice 
within a hierarchical path. 
Therefore, if a hierarchical 



I 



PARTBEXP seqments fcr continuity f 
check related to branches which 
have become obsolete will be 
removed. 

1 3 1 Since this hierarchical path is 
exhausted, the control seqment 
for explosion is deleted. 



005 - NEXT PARENT OH HIGHER LEVEL 






Routine Label Ref 



HIPOMAT 1.1 Diagram - 3.1.3.3-01 



Section 7. Appendixes 7-17 



Licensed Material — Property of IBM 



Processing 




lOl] Read sequentially all 
UPDMASTR segments. 



02 Restore all LLCs of parts 
referenced by an UPEMASTR 
segment to its original 
value. 



[03] Return to module 002. 



006 - CONTINUITY ERROR HANDLER 



Routine) Label 




HIPOMAT 1.1 Diagram - 3.1.3.4-01 



utine Label Hef 









006 - CONTINUITY ERROR HANDLER 



HIPOMAT 1.1 Diagram - 3.1.3.4-01 
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Appendix B: DBD Generation 



Description of DBD Generation 



DBD generation is composed of a set of DL/I macro instructions, the execution of 
which creates the user-specified data base description (DBD) and places it in the 
DOS/VS source statement library. The following macro instructions represent 
DBD generation: 

Macro Instruction 

Name Purpose 



DBD 



Allows the DL/I user to define the name of the DBD and the 
data base organization 



( 



C 



DATASET Allows the DL/I user to define names for data sets representing 

a data base, the device type used for storage of the data base, 
the logical record length, and the blocking factor for the 
physical records in the data sets representing the data base 

ACCESS Used in conjunction with ACCESS=HD to define external 

access points, primary and secondary, to the data base. 

SEGM Allows the user to specify a DL/I segment, its parent segment, 

the segment length, the segment name, and segment prefix 
information 

LCHILD Allows the user to define an index relationship or a logical 

relationship in which a segment will participate. 

XDFLD Allows the user to define secondary indexing relationships. 

FIELD Allows the DL/I user to specify a data field or key field for a 

segment. The field definition includes the related segment field 
name, field start position in segment, field length, and field type. 

DBDGEN Causes the segments, fields, and data sets defined in the SEGM, 

FIELD, and DATASET macro instructions to be generated into 
an object module. 



FINISH 



Checks whether a DBDGEN statement was present. 



The DBD generation macros utilize a universal set of globals. The COPY book for 
these globals is in the DOS/VS Source Statement Library and is named 
DLZDBGLB. 
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DBDGEN Macro Calling Sequence 



External 






Macro 


Inner 1 


Inner 2 


DBD 
DATASET 


DZLALPHA 
DLZALPHA 
DLZCKDDN 
DLZDEVSI 




ACCESS 


DLZALPHA 
DLZXTDBD 




SEGM 


DLZALPHA 






DLZSOURS 


DLZXPARM 
DLZALPHA 
DLZXTDBD 




DLZXPARM 






DLZXTDBD 






DLZSETFL 


DLZSEGPT 


XDFLD 


DLZALPHA 




LCHILD 


DLZALPHA 
DLZXTDBD 




FIELD 






DBDGEN 


DLZSEGPT 
DLZLRECL 






DLZSOURS 


FIELD 




DLZXTDBD 






DLZCAP 






(see Note) 






DLZHIERS 


DLZSDURS 
DLZHIERS 


FINISH 






Note: Not called if device is FBA. 








/f 



v.- 



/;0 






C 
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A - algebraic 


C = character 


S = set 


B = binary 


R = reference 


U = reference/set 



Figure 7-2 (Part 1 of 5). DBDGEN MACRO-GLOBAL Symbol Cross Reference 
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A = algebraic 


C = character 


S = set 


B = binary 


R = reference 


U = reference/set 



Figure 7-2 (Part 2 of 5). DBDGEN MACRO-GLOBAL Symbol Cross Reference 
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A = algebraic 


C = character 


S = set 


B = binary 


R = reference 


U = reference/set 



Figure 7-2 (Part 3 of 5). DBDGEN MACRO-GLOBAL Symbol Cross Reference 
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C = character 
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Figure 7-2 (Part 4 of 5). DBDGEN MACRO-GLOBAL Symbol Cross Reference 
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D 
O 

CO 
N 

-J 

a 


OC 

< 

a. 
X 
N 

a 


Q 
CO 
Q 
H 
X 
N 

a 


NAME 


TYPE 


SIZE 


SLLC 


A 










S 




u 






























SNAME 


C 


255 








U 


R 


R 


R 


R 












R 




R 




R 




R 


SP# 


A 


255 
















u 












R 














SPC 


A 


255 
















R 












U 








R 






SPCCHN 


A 


255 
















s 












R 














SPCTR 


B 


255 












U 
















R 














SPL 


A 


255 
















u 












U 


R 


R 










SPLTW 


B 


255 








s 








R 












R 






u 








SPLTWB 


B 


255 




























R 






u 








SPNT 


B 


255 




























R 






u 








SPPNAME 


C 


255 








s 








R 


























SPPP 


B 


255 








s 




S 




S 












U 














SPRD 


B 


255 
















u 


























SPTW 


B 


255 








s 




















R 






u 








SPTWB 


B 


255 




























R 


R 




u 








SRULES 


A 


255 




























R 






u 








SS# 


A 






































U 






SSDB# 


A 


510 




































U 






SSNAME 


C 


510 




































U 






SSS# 


A 


510 




































U 






SSX 


A 


255 










U 


























R 






SVLINIT 


B 


255 








s 








R 












R 














XD# 


A 








U 








U 






















R 






XDACC# 


A 


4095 






S 








S 






















R 






XDF# 


A 


4095 




































U 






XDIDDF 


B 


4095 














S 






















R 






XDISCF 


B 


4095 






S 








S 






















R 






XDISHF 


B 


4095 






S 








S 






















R 






XDISRP 


B 


4095 






S 








S 






















R 






XDISSF 


B 


4095 






S 








S 






















R 






XDNAME 


C 


4095 






s 








U 


R 




















U 






XDSUPC 


C 


4095 






s 








s 






















R 







A = algebraic 


C = character 


S 


= set 


B = binary 


R = reference 


U 


- reference/set 



Figure 7-2 (Part 5 of 5). DBDGEN MACRO-GLOBAL Symbol Cross Reference 
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DBDGEN Macro Descriptions 



DATASETMacro 



DBD Macro 



DBDGEN Macro 



DLZALPHA Macro 



This is an external macro through which data set/data set group information is 
specified by the user. 



This is an external macro through which DBD control information is specified by 
the user. 



This macro terminates ihc DBD specification process. If the error switch, 
DBDERR, is not set, the control block generation phase is entered to create the 
required block entries. 





DLZALPHA 


Al 

AN 

AN1 ,FffiLD=,CHAR=,MAC=,OPER= 

ALL 

DBD 

HEX 

BINARY 

BYTE 



This macro is used to check the syntax of macro operands. The first (positional) 
parameter identifies the valid format as follows: 



V..^' 



f 



Al or omitted 

AN1 

ALL 

AN 
HEX 
BINARY 
DBD 

BYTE 



First character must be A-Z, @, #, or $. 

First character must be 0-9, A-Z, @, #, or $. 

First character must be A-Z, @, #, or $. 
Remaining characters must be A-Z, @, #, $, or 0-9. 

All characters must be 0-9, A-Z, @, #, or $. 

All characters must be 0-9, A-F. 

All characters must be or 1. 

First character must be A-Z, #, or $. 
Remainder must be A-Z, #, $, or 0-9. 

Operand must be a valid one byte self defining term. 



f" 
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The other parameters are: 



FIELD 
CHAR 
MAC 
OPER 



Field to be checked. 

Starting position for check if other than first position. 

MNOTE prefix for error MNOTEs. 

Name of operand being processed for MNOTEs. 



DLZCAP Macro 



c 





DLZCAP 


DEVICE, BLOCKSIZ 



This macro is called by DBDGEN to calculate the block capacity per track and 
cylinder provided the blocks do not have keys. These numbers are required to 
generate so me entries within the DTFSD (HSAM) and ACB-extension. The 
capacities are returned using global arithmetic variables (GBLA). Input values are: 

| [DEVICE 2314, 3330, 3340, 3350, 3375, FBA 

BLOCKSIZ in bytes (key length = 0) 

Output (GBLA) and MNOTE: 

CAPTRK number of blocks per track (GBLA) 

CAPCYL number of blocks per cylinder (GBLA) 

MNOTE DMAN1 50 if invalid device 

MNOTE Comment containing $CAPTRK and $CAPCYL if calculation 

was successful 



DLZCKDDN Macro 



c 





DLZCKDDN 


FILENAME 



This macro checks the validity of filenames specified by the user and verifies that 
the specified filenames are not duplicated. 

The operand is: 

FILENAME 

is the one- to seven-character filename to be checked. 



^(f^'V 
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DLZDEVSJ Macro 



DLZHIERS Macro 



DLZLRECL Macro 





DLZDEVSI 


DEVICE 






This macro is called by the DATASET macro to set device capacity values for the 
specified device type. The device value specified in the DEVICE operand of the 
DATASET statement is passed to this macro. 





DLZHIERS 


S,LV,LCP 



This macro is called twice by the DBDGEN macro. The first time is to validate 
segment hierarchies, field names, and locations. The second time, LV is set to 
'GENERATE', to generate the segment table entries for the DBD. 

The macro calls itself to process dependent segment definitions. 

The first time operands are: 

S Segment table entry number of the segment to be processed. 
LV Level for the segment to be processed. 

LCP If one, it indicates that the segment to be processed is below a logical child in 
the physical hierarchy. 

The second time operands are: 

S Segment table entry number of entry to be generated. 
LV 'GENERATE' 
LCP Ignored. 



v_„ 



i 



^y 





DLZLRECL 





This macro is called by DBDGEN to calculate LRECL and BLKSIZE. 
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DLZSEGPT Macro 



DLZSETFL Macro 





DLZSEGPT 





This macro is called by DBDGEN to maintain the globals DSLSL and DSSSL, 
which contain the sizes of the largest and smallest segments in a data set, 
respectively. This macro produces error messages DGEN250, 251, 252, 253, 254, 
255, 256, and 257 if the segment referenced by the operand value violates those 
rules. 



c 





DLZSETFL 


RULES= 



( 



This macro processes the POINTER or PTR operand of the SEGM macro and sets 
the globals to reflect the entered values. The globals set by this macro comprise 
bytes and 1 of the 4-byte flags field of the SEGTAB entry for this segment. 

This macro is not entered if the DLZXPARM macro encountered an error while 
generating the &PLIST matrix, or if the SEGM macro detected an error in the 
POINTER or PTR parameter list. 

Messages: 

An error message is produced and processing is terminated if: 

• An invalid keyword is encountered in the parameter list, or 

• The RULES operand is omitted or invalid 



c 



Flag Byte 1 is set as follows: 



Bit 1 


CTR 


Bit 2 


TWIN 


Bit 3 


TWINBWD 


Bit 4 


PARNT 


Bit 5 


LTWIN 


Bit 6 


LTWINBWD 


Bit 7 


LPARNT 


Bit 8 


NOTWIN 



If TWINBWD and/or LTWINBWD is specified, Bit 2 and/or Bit 5 is set on, in 
addition to Bit 3 and/or Bit 6, respectively. 



Section 7. Appendixes 7-29 



Licensed Material — Property of IBM 



DLZSOURS Macro 



Flag Byte 2 &SRULES is set as follows: 

Bits 1 & 2 Indicate segment insert rule, where: 

10 Physical 
01 Virtual 

11 Logical (Default) 

Bits 3 & 4 Indicate delete rule and set same as insert. (Default value is 

LOGICAL). 

Bits 5 & 6 Indicate replace rule and set same as insert. (Default value is 

VIRTUAL). 

Bits 7 & 8 Indicate physical location of inserts for nonsequenced segments, 

where: 

10 First 

01 Last (Default value) 

11 Here 

The operands are: 
RULES= 

specifies the RULES = operand as specified on the SEGM statement 





DLZSOURS 


PARM=, OPTION 



This macro is called by the SEGM macro to process the SOURCE parameter, by 
DBDGEN to validate index table entries and generate the source and index tables, 
and by DLZHIERS to generate the segment table entries for number of source 
segments and offset to first entry. 

The parameters are: 

OPTION ADD - process source operand. 
PARM = operand. 

CHECK - validate and connect index table entries. PARM ignored. 

LIST - generate SOURCE and index tables. PARM ignored. 

FIND - generate segment table entries, PARM= segment table 
number. 






if 



V. 



c 
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DLZXPARM Macro 





DLZXPARM 


PARM= ,MODEL= ,MSG= 



When used this macro extracts parameters from a sublist and stores them in a 
global matrix (PLIST). Null values in the parameter list are stored as null values in 
the PLIST matrix. 

The operands are: 

PARM= specifies the input parameter list values 

MODEL= identifies the model for a fully defined sublist, indicating the 

locations in the PLIST matrix for the parameters, (for example, 
MODEL=(l,2), (3,4,5)). 

MSG= identifies the parameter being processed in the first operand and the 

MNOTE prefix in the second operand. 



DLZXTDBD Macro 





DLZXTDBD 


DB.CODE 



This macro builds an external data base reference table. It is called by SEGM, 
LCHILD, and DBDGEN. 

The operands are: 

DB specifies a data base name or segment name 

CODE specifies the value SEGM or is omitted. 

If the value SEGM is specified in the CODE operand, the segment 
name (SN) is searched to locate the value specified in the DB 
operand; when found, the symbol EXTDBN is set to contain an 01 in 
byte 0, and bytes 1, 2, and 3 contain an offset into SEGTAB. If the 
segment is not found, an MNOTE error message is produced. 

If the CODE operand is omitted, the external data base reference 
table (DBNAME) is searched for the DB entry, and, if found, the 
symbol EXTDBN is set to contain the position of the found entry. If 
the DB value is not found, the value is added to the table and 
EXTDBN is set to that entry. 



FIELD Macro 






This is an external macro used to define fields within a segment. 
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FINISH Macro 



LCHILD Macro 



SEGM Macro 



XDFLD Macro 



ACCESS Macro 
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This is an external macro used to check whether a DBDGEN statement is supplied. 



This is an external macro used to define index or logical relationships for HDD AM 
and HDAM or logical relations for HD. 



This is an external macro used to define data base segments. 



This is an external macro used to define in connection with the LCHILD statement 
secondary index relationships for HID AM and HDAM. 



This is an external macro used to define external access points to the data base for 
ACCESS=HD. 



DBD Generation Control Block Output - DBDGEN 

The data base description block (DBD) is the result of each data base generation. 

. Diagram of DBDGEN Control Block Output 






4" 
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General Structure: 



c 



DIRECTORY 



PREFIX 



DMANTAB 



ACB EXTENSION (Same as DMB) 
(if HSAM or SSAM, DTFs) 



SEGTAB 



FLDTAB 



EXTDBD 



LCHILD 



SORTAB 



INDXTAB 



DACT 
(Same as DMB) 



COMPRESSION EXITCSECTS 
(Same as DMB) 



INDEX EXITCSECTS 
(Same as DMB) 
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1 . Directory Layout 



Hex Dec 



Name 



Length 









AMODLEV 


1 


1 


1 


APREFEX 


3 


4 


4 


ASEGTAB 


4 


8 


8 


AFLDTAB 


4 


C 


12 


ALCHILD 


4 


10 


16 


AEXTDBD 


4 


14 


20 


ASORTAB 


4 


18 


24 


ARMVTAB 


4 


1C 


28 


AINDXTAB 


4 


20 


32 


ADSGCB 


4 



Description 

Release level (X'OO'-l.O, X'll'-l.l) 

Address of PREFIX 

Address of SEGTAB 

Address of FLDTAB 

Address of LCHILD 

Address of EXTDBD 

Address of SORTAB 

Address of DMBDACS 

Address of INDXTAB 

Address of ACB extension 



if 



s 



2. Prefix Layout 
Hex Dec Name 



Length 



Description 









PREDBDNM 


8 


DBD 


name 




8 


8 


PRENOLEV 


2 


Number of levels in data base 


A 


10 


PRENOSEG 


2 


Number of segments 




C 


12 


PREACCES 


1 


Organization 












Name 
PRESfflS 


EQU 


Meaning 

SimpleHISAM 










PREISAM1 


X'02' 


HISAM 










PRESSAM 


X'04' 


Simple HSAM 










PREHSAM 


X'05' 


HSAM 










PREHD 


X'06' 


HDAM 










PREHI 


X'07' 


HIDAM 










PRENDEX 


X'08' 


INDEX 










PREIMSC 


X80' 


IMS compatibility 
required. 


Hex 


Dec 


Name 


Length 


i Description 





4T 



D 


13 


PRENODSG 


1 


E 


14 


PRENODBD 


2 


10 


16 


PRERNDM 


8 


18 


24 


PRENOLCH 


2 


1A 


26 


PREAP 


2 


1C 


28 


DBDPFRBN 


4 


20 


32 


DBDPFBYT 


4 



Number of data sets 

Number of externally referenced data bases 

Randomizing algorithm name 

Number of logical children 

Number of root anchor points 

Maximum relative block number (HD) 

Maximum bytes in prime area (HD) 



V_> 



3. DMANTAB Layout 

Hex Dec Name 

PREDD1 
8 8 PREDEV1 
C 12 PREID 



Length Description 

8 Input or prime filename 

4 Device type 

1 Data set group ID 
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Hex Dec 



Name 



Length 



D 


13 


PRENSGA 


1 


E 


14 


PREDELTA 


2 


10 


16 


PRELSL 


2 


12 


18 


PRESSL 


2 


14 


20 


PRELKL 


2 


16 


22 


PRESKL 


2 


18 


24 


PRELRECL 


2 


1A 


26 


PREBLKSZ 


2 


1C 


28 


PREOLREC 


2 


IE 


30 


PREOBLKS 


2 


20 


32 


PREDD2 


8 



Description 

Number of segments in data set 

Delta scan cylinders (HD) 

Length of longest segment plus prefix 

Length of shortest segment plus prefix 

Length of longest key 

Length of shortest key 

Prime/input record length 

Prime/input block size (control interval) 

ESDS/output record length 

ESDS/output block size (control interval) 

ESDS/output filename 



t 



4. ACB Extension 

See "ACB Extension - ACBXT". 

5. SEGTAB Layout 

One of these tables exists for each segment. 
Hex Dec Name Length Description 









SEGDSNO 1 


Segment data set number 


1 


1 


SEGPHYCD 1 


Segment code 


2 


2 


SEGPARPC 1 


Parent segment code 


3 


3 


SEGLEVEL 1 


Segment level 


4 


4 


SEGNOLCH 1 


Number of logical children 


5 


5 


SEGNOFLD 1 


Number of fields 


6 


6 


SEGLENG 2 


Segment data length (maximum length if variable length 
segment) 


8 


8 


SEGFREQ 4 


Reserved 


C 


12 


SEGSEGNM 8 


Segment name 


14 


20 


SEGFLG1 1 


Prefix pointer flag 



EQU 



Meaning 












X'80' 


Counter 








X'40' 


Physical twin forward 








X'20' 


Physical twin backward 








X'10' 


Physical parent 








X'08' 


Logical twin forward 








X'04' 


Logical twin backward 








X'02' 


Logical parent 








xor 


Hierarchical 


Hex 


Dec 


Name 


Length 


Description 


15 


21 


SEGFLG2 


1 


Segment update rules 
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EQU 

X'CO' 
X80' 
X40' 

X'30' 
X'20' 
X10' 

X'OC 
JCQ8L 



X04' 



X03' 
X'02' 

xor 



Meaning 

Insert rule 

Logical 

Physical 

Virtual 
Delete rule 

Logical 

Physical 

Virtual 
Replace rule 

Logical 
Physical 






Virtual 

Physical location of inserts, when no 

key field 

Here (current position) 

First 

Last 



Hex Dec 

16 22 



Name 
SEGFLG3 



Length 

1 



Description 



EQU Meaning 

X*08' Parent has backward pointers to this 

segment 



f 

v i.... 



Hex Dec 



17 
18 
1C 
IE 
20 
24 
26 
28 
2C 



23 
24 
28 
30 
32 
36 
38 
40 
44 



Name Length 

SEGFLG4 1 

SEGLCHLD 4 

DBDSSN 2 

DBDSSOFF 2 

SEGFLDTB 4 

DBDSPFSZ 2 

SEGLENGV 2 

Reserved 4 

SEGPACOP 1 



Description 

Number of physical children pointed to directly by this segment 

Offset to first LCfflLD entry 

Number of source segments 

Offset to first source segment 

Offset to first FLDTAB 

Segment prefix size 

Minimum segment length (0 if fixed length) 

Reserved 

VL-Compression options 



Name 
SEGCPRT 



EQU 

X'08' 



SEGTYPVL X'04' 
SEGPACTT XOl' 



Meaning 

Segment has compression 

routine 

Segment is variable length 

Initialization exit requested for 

compression routine 



G 
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Hex Dec 


Name 


Length 


Description 


2D 45 


SEGPACRT 


3 


Address of compression table 


6. FLDTAB Layout 






Hex Dec 


Name 


Length 


Description 



8 8 
A 10 


FLDNAME 
FLDSTART 
FLDFLAG 


8 
2 
1 


Field name 

Start position offset 



EQU 



Meaning 



c 







X'80' 


Last field for a SEGTAB 






X'40' 


Sequence field 






X'20' 


Multiple sequence fields 






X'10' 


Special FDB 






X'01' 


Hexadecimal field 






X02' 


Packed field 






X'03' 


Character field 






X'04' 


Floating point field 


Hex Dec Name 


Length 


1 


Description 


B 11 FLDLEN 


1 




Field length 


C 12 FLDSNAME 


8 




Source field name 


14 20 FLDSEGTB 


4 




Pointer to SEGTAB entry 


7. EXTDBD Layout 








Hex Dec Name 


Length 


1 


Description 


EXTDBNM 


8 




Externally referenced data base name 


8 8 EXTRSVD 


4 




Reserved 


8. LCHDTAB Layout 








Hex Dec Name 


Length 


[ 


Description 


LCHSEGNM 


8 




Segment name 


8 8 LCHCODE 


1 










Bit 


Meaning 






0=0 


LCHEDBD address is an EXTDBD 
entry 






0=1 


LCHEDRD address is a SEGTAB 
entry 






1-7 


Reserved 
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Hex 


Dec 


Name 


Length 




Description 


9 
C 


9 

12 


LCHEDBD 
LCHFLAG 


3 
1 


EQU 

X'80' 

X'40' 
X'20' 
X'10' 


Offset to EXTDBD or SEGTAB entry 

Meaning 

Last entry for a 

SEGTAB 

Reserved 

INDEX entry 
Reserved 










X*08^ 

X'04' 

X'02' 

x'or 


LP definition 
INDEX pointer 
SNGL pointer 
DBLE pointer 


Hex 


Dec 


Name 


Length 




Description 


D 
E 
10 


13 
14 
16 


LCHIBYTE 

LCHPRDSG 

LCHFLDNM 


1 

2 
8 




Reserved 

Offset to paired segment 

Indexed field name 


9. SORTAB Layout 








Hex 


Dec 


Name 


Length 




Description 



8 
9 



8 
9 


DBDSORNM 

DBDSSFLG 

DBDSSDBO 


8 
1 
3 




Source segment name 
Source segment flag - reserved 
Offset to data base entry 



J 



\^ 



10. INDXTAB 

See "Secondary List - SEC (Codes 64, 44, 40, 24, 20, 04)". 

11. D ACT 

See "Direct Algorithm Communication Table - DACT". 

12. Compression Exit CSECTS 

See "Compression CSECT - CPAC". 
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Appendix C: PSB Generation 



Description of PSB Generation 



PSB generation is composed of a set of DL/I macro instructions, the execution of 
which creates the user-specified program specification block (PSB). The following 
macro instructions represent PSB generation: 

Macro Instruction 

Name Purpose 



PCB 



SENSEG 



( 



PSBGEN 



Allows the DL/I user to define a program communication block 
(PCB), one or more of which exist within a single PSB. A PCB 
must exist for each data base with which the associated 
application program PSB intends to interact. 

The PCB macro saves the type of PCB, associated data base 
name, the intended processing options on that data base, and 
the maximum key length within the data base. One or more 
PCB macros can be used in a single PSB generation. The limit 
is 20 PCB macros per PSB generation. 

The SENSEG macro instruction allows the DL/I user to specify 
a segment within a data base to which the application program 
associated with this PSB is sensitive. Up to 255 SENSEG 
macros may follow a PCB macro. 

The PSBGEN macro allows the user to specify the associated 
application program language and the name of the PSB control 
block to be generated. The PSBGEN macro is the generating 
macro for the entire PSB control block and its internal PCB 
control blocks. 



SENFLD 



VIRFLD 



The SENFLD macro gives the DL/I user the ability to specify 
segment sensitivity on a field level. Up to 255 fields within ^ 
segment, and 4095 fields within a PSB may be specified. 

The VIRFLD macro gives the DL/I user the capability of 
defining fields in the user's view of a segment that do not exist 
in the physical view. In conjunction with the SENFLD macro, 
up to 255 fields per segment, and 4095 fields per PSB may be 
specified. 



PSBGEN Macro Calling Sequence 



External Macro 
PCB 



SENSEG 
PSBGEN 



Inner 1 
DLZCKOPT 

DLZALPHA 

DLZCKOPT 

DLZPCBPD 



Inner 2 
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MACROS 






GLOBAL SYMBOLS 


< 

X 

Q. 

< 
N 

-1 
Q 


H 

CL 

o 

O 
N 

-J 
Q 


Q 

a. 

CO 

o 

Q. 
N 
-J 
Q 


CO 

a 

a. 


z 

HI 

03 
CO 

a. 


Q 

-j 

UL 

Z 

Ul 
CO 


a 

111 

C0 

Z 

Ul 
CO 


a 

ll- 
> 






NAME 


TYPE 


SIZE 






DBNAME 


C 


255 








U 


R 












E 


B 






S 




S 


U 


S 


S 


S 






EXTDB 


A 










u 


R 












FERTNA 


A 


4095 










R 


U 




u 






FERTNM 


C 


4095 










R 


U 




u 






FSLNGT 


A 


4095 










R 


u 




u 






FSNAME 


C 


4095 










R 


u 




u 






FSRTNA 


A 


4095 










R 


s 




S 






FSSTRT 


A 


4095 










R 


u 




u 






FSTYPE 


A 


4095 










R 


u 




u 






FSVALU 


A 


4095 










R 






S 






NFER 


A 












R 


u 




u 


/< ~"\ 




NFLD 


A 












R 


u 


R 


u 


v J 




P 


A 






R 




u 


R 


u 


U 


u 




PGE 


A 


255 




U 






U 












PIO 


B 


255 




U 


















PK 


A 


255 








S 


R 












PN 


C 


255 








u 


R 












PO 


C 


255 




S 




S 


R 




R 








PPI 


B 


255 




S 




S 


R 












PS 


B 


255 








S 


R 












PSEQ 


C 


255 








S 


R 








4^^ 




PSS 


A 


255 








s 


R 




U 








QUITS 


B 




S 






R 




R 




R 




S 


A 






R 




R 


R 


U 


U 


u 






S#FLD 


A 












R 


U 




u 






SEG 


B 










S 






U 








SFC 


A 


500 










R 




S 








SFF 


A 














R 


S 


R 






SLC 


A 


500 










U 




U 








SN 


C 


500 










R 




U 








SP 


A 


500 










R 




S 








SPC 


A 


500 










R 




S 




vy 




SPO 


C 


500 




S 






R 




S 








SPTC 


A 


500 










R 




S 








SS 


A 


255 








R 


R 


U 


U 


U 





A = algebraic 
B = binary 
C = character 



R = reference 

S = set 

U = reference/set 



Figure 7-3. PSBGEN MACRO-GLOBAL Symbol Cross Reference 
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PSBGEN Macro Descriptions 



DLZALPHA Macro 



DLZCKOPT Macro 



A description of the DLZALPHA macro appears in Appendix B. 





DLZCKOPT 


OPT.M 



c 



This macro is called by the PCB macro or SENSEG macro to validate the 
PROCOPT operand. The macro generates either the PCB or the SENSEG 
TROCOPT OPERAND IS INVALID' error message. Global symbol PO or SPO 
is set to contain the processing option. 

The operands are: 



DLZPCBPD Macro 



PCB Macro 



PSBGEN Macro 



SENFLD Macro 



SENSEG Macro 



VIRFLD Macro 



OPT specifies the PROCOPT operand as entered on the PCB or SENSEG 
statement 

M is PCB or SENSEG message number 



This is an inner macro called by the PSBGEN macro. It generates the PL/I dope 
vector table if LANG=PL/I is specified in the PSBGEN statement. 



This is an external macro used to define a DB PCB. 



This is an external macro used to terminate PSB specifications, and, if no errors 
have been encountered, to cause the generation of the PSB control blocks. 



This is an external macro used to specify sensitive fields within a sensitive segment. 



This is an external macro used to specify sensitive segments in a data base PCB. 



This is an external macro used to specify fields that exist in the user's view of a 
sensitive segment, but not in the physical view. 
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PSB Generation Control Block Output - PSBGEN 



1. PSB - Prefix 






Hex 


Dec 


Length 


Description 








4 


Address of SEGTAB 


4 


4 


4 


Address of SORTAB 


8 


8 


4 


Address of DBREFTAB 


C 


12 


4 


Reserved 


10 


16 


4 


PST address (prefix size) 


14 


20 


12 


Reserved 


20 


32 


1 


Reserved 


21 


33 


1 


PSB code 


22 


34 


2 


PSB prefix size 


24 


36 


2 


Reserved 


26 


38 


2 


Offset to first DB PCB address 


28 


40 


Var 


Address of PCB(s) (one 4-byte address for each PCB) 



2. DBPCB Vy 

PL/I dope vectors precede PCB if LANG=PL/I 



Hex 


Dec 


Length 


Description 








8 


Data base name 


8 


8 


1 


Reserved 


9 


9 


1 


Flags 

04 - I,0,R,E, or A PROCOPT specified 

02 - Go PROCOPT for PCB 

01 - All segment processing options are either E or GO for 

PCB 


A 


10 


2 


Status code 


C 


12 


4 


Processing options 


10 


16 


4 


JCB address 


14 


20 


8 


Segment name feedback 


1C 


28 


1 


Position 


ID 


29 


3 


Key feedback length 


20 


32 


2 


Number of sensitive segments 


22 


34 


2 


Offset to first SENSEG 


24 


36 


Var 


Key feedback area 



L 



\ 



3. SEGTAB Entry 

Hex Dec Length Description 









8 


8 


8 


4 


C 


12 


1 


D 


13 


3 


D 


13 


3 


10 


16 


2 


12 


18 


2 



Segment name 

Processing options 

Flag 

80 Last table entry 

40 Field Level sensitivity for segment 

Offset to PGB for secondary processing sequence entry 

PCB address 

Offset to parent segment 

Offset to FSB list 
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C 



V 



4. DBREFTAB Entry 


Hex Dec 


Length 



C 12 


12 

4 


D 13 


3 


5. FLS Table 




Hex Dec 


Length 



4 4 
8 8 
C 12 
10 16 
14 20 


4 
4 
4 
4 
4 
4 



Description 

Data base name 

Flag byte 

40 - Secondary processing sequence 

Offset to PCB for secondary processing sequence entry 



Description 

FSB list address 

FSB table address 

Field exit routine table address 

Field exit routine table length 

Initial value table address 

Initial value table length 



6. FSB List Entry 



Hex Dec 




1 




1 



Length 

1 
3 



Description 

Number of FSBs for segment 
Address of first FSB for segment 
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Appendix D: DL/I Macros 



DLZBLDL 



TJperandr 



Exit Conditions 



DLZBLKLD 



This section describes the executable processing macros that standardize some 
processing routines and DSECTS and lists the macros that provide the DSECTs. 



This macro is used to search the core image libraries to determine if a specified load 
module is present. Optionally, if the phase is present, the length of it is calculated 
for the caller. The DOS/VS LOAD macro (TXT=NO) is used to obtain the 
directory entry information. 



The descriptions and valid parameters for the two keyword operands are as 
follows: 

. PHASE 

The name of the phase in the core image library. 

=(reg) The register specified in parenthesis must point to the 8-byte name 
(padded with blanks if necessary). 

='name' The actual phase name may be specified enclosed in single quotes. 

= label This is the label of an 8-byte field containing the phase name with 
any necessary blanks. 

Register 1 is the default which must be loaded with the address of the name. 

. LENGTH 

Specified if the caller desires the actual length of the load module to be 
calculated by this macro. 

t=(reg) The register specified in parenthesis will contain the length in 
binary of the load module as indicated in the directory entry. 
Register 15 is invalid. 

= label This is the label of a f ullword in the calling program which will 
contain the length of the found phase on exit. 

If LENGTH is omitted, no length will be calculated. 



R15 = The phase was found and the length, if requested, has been returned. 

R15 = 4 The phase was not found. 

Registers and 1 are destroyed unless specified for the length register. All other 
registers are unchanged. 



This macro is used by some DOS/VS DL/I utility programs to request the 
initialization module to load all control blocks needed to process a specified utility 






v. 



zf 
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PSB. A utility PSB is built by the application control block creation and 
maintenance utility for every user DBD except a primary HID AM index, logical, or 
HSAM. 



Operand 



c 



The utilities which use this special function have 'ULU' in the first three bytes of 
the parameter card. When batch initialization determines (by utility name - either 
DLZURPRO, DLZURGSO, or DLZURGPO) that the DLZBLKLD macro will be 
used, it does not load any control blocks. The action modules and PST and SCD 
are loaded, however. When the utility first receives control, register 1 contains the 
address of the PST. 



When the utility reaches the point where blocks are needed, the DLZBLKLD 
macro is executed: 



DLZBLKLD DMB= 



[(reg)] 
[label] 



The DMB operand indicates the address of the 8-byte DMB name for which blocks 
are required. Either the register number (reg) or the label of the field may be 
specified to indicate the address. If this operand is omitted, register 1 is assumed to 
contain the address of the DMB name. 



Exit Conditions 



DLZCAT 



The expansion replaces the ending 'D' of the DMB name with a *U\ A CALL is 
made to ASMTDLI with the parameter list as follows: 



FUNC 



DC A (FUNC) Address of function 

DS CL8 The name of the utility PSB 

DC C'BLDB' Function 



After execution of this DLZBLKLD macro, register 15 contains a return code: 

R15 = The blocks were loaded successfully. Register 1 contains the address 
of the list of PCB addresses. 

R15 ?* The blocks were not loaded successfully. Register 1 contains the 
address of the name of the block which could not be loaded. 

Any previously loaded blocks have been overloaded and new buffer pools have 
been allocated. 

When the utility program returns to the language interface at end-of-job, a return 
code is expected in register 15. If register 15 is 0, normal unload processing will 
occur. If register 15 is non-zero, no UNLD call will be made. This return is used 
when no blocks have been successfully loaded. 



This macro is used to provide the module CATALR statement. It is updated for 
each release with the current version/release number. By having all modules use 
DLZCAT, it ensures that the CATALR statement will always contain the latest 
version/release number. 
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DLZDVCE 



The DLZDVCE macro is available for the utilities to: 
Determine whether a logical unit is assigned or not. 
Determine if it is assigned to disk or tape. 
Modify the corresponding DTF. 

The format of the macro is as follows: 



f) 



i>LZDVC&fMF= {E |R|L| t^t,{Mmme\Xt)}] 
[,DISKDTF={dtfnamel | (r)}] 
[,MODIFY= {NO | YES}] 
[,TAPEDTF= {dtf name2 | (r) }] 
[,FNAME= {filename | (r)}] 

[,RECFM={FIXUNB | VARUNB | UNDEF | FDCBLK | VARJBLK}] 
[,DEVADDR={SYSnnn | (r)}] 
[,DTFADDR= {fieldname | (r)}] 
[,LNAME=listname] 
[,EOXTNT=routinename] 
[,REWIND= {optionaddr | (r) }] 

The operands have the following meaning: 

MF specifies the type of code to be generated by this expansion. This 

allows for multiple invocations of the function without generating 
multiple copies of the code itself. 

E generates the mainline code and, unless 'listname' is 

specified, a parameter list. 

Note: Only one execute form of the macro is allowed for 
one single assembly. One, however, is required. If 
encountered more than once, it will be reset to R for all 
macros but the first one. 

The entry point of the mainline routine is always 
DLZDTENT. This will be used by all calls generated by 
R type macros. 

R A series of instructions to invoke the main routine, and, 

unless 'listname' is also specified, a parameter list will be 
generated. DLZDTENT is used as branch address to the 
main routine. 



€ 



listname specifies a parameter list to be used with this execution or 
invocation. The list must be defined in the program with 
an MF=L macro or using the LNAME operand in an 
MF=E or MF=R macro. Listname is only valid with E 
or R. If listname is specified, any other operands 
specified will permanently override the corresponding 
parameters in the list. Not specifying an operand, 
however, will not clear the corresponding field in the list. 
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Register notation may be used, in which case the register 
must contain the address of the list. 

L Only a parameter list but no code will be generated. 

Either the label field or the LNAME parameter (or both) 
can be used to assign a name to the list which can be 
referred to by any E of R form. 

Register notation in the operands of an L form macro is 
not allowed, except for the DTFADDR operand. 

C causes a check to be performed on all parameter lists 

generated during this assembly. All references to a single 
list are totaled and the presence of all required operands 
is checked. An error summary is printed. This form of 
the macro should be used as the last occurrence of 
DLZDVCE in any single assembly. 

Note that passing this check error-free does not 
necessarily guarantee error-free execution, since the 
check cannot foresee the sequence in which the various 
DLZDVCE invocations are executed. 

If the MF operand is omitted or invalid, it will default to E in the first 
macro encountered, and R in all other occurrences. 

DISKDTF specifies the name of the disk DTF to be modified if the logical unit is 
assigned to a disk device. If register notation is used, the register must 
contain the address of the DTF. 



Specifying DISKDTF = 
parameter. 



:0 or a register containing zero will nullify the 



If this operand is not present at execution time (after any overriding), 
the routine will consider assignment to a disk device as invalid. 

TAPEDTF specifies the name of the tape DTF to be modified if the logical unit 
has been assigned to a tape device. If register notation is used, the 
register must contain the address of the DTF. 

Specifying TAPEDTF=0 or a register containing zero will nullify the 
parameter. 

If this operand is not present at execution time (after any overriding), 
the routine will consider an assignment to tape as invalid. 

If MF=E or R without listname was specified, either DISKDTF or 
TAPEDTF or both must be specified. 

MODIFY specifies whether or not the selected DTF is to be modified 

accordingly or not. MODIFY= YES is the default. If MODIFY=NO 
was specified, and a^valid device type was found, register 15 will have 
a negative return code, indicating that no modification has been done. 



Section 7. Appendixes 7-47 



Licensed Material— Property of IBM 



FNAME specifies the filename to be moved into the appropriate DTF. If not 
present at execution time, the DTF field is not changed. For register 
notation, the register must point to a seven-byte field containing the 
file name. 

Specifying a register pointing to a hex zero string will nullify the 
parameter. 

RECFM specifies the record format of the file. One of the values shown must 
be specified. Omission or invalid specification defaults to VARBLK. 






DEVADDR specifies the logical unit number to be tested. It must be in the form 



SYSnnnrwhere^nhn is U00 r to 243, or in register notation, in^w^ 
case the register must contain the unit number as a binary number in 
the same range. 



DLZER 



Operands 



This parameter is required if MF=E or R without listname was 
specified. 



This macro is used in module DLZLBLMO to specify a message. Code is also 
generated to support selection by message id. 



DLZER 

ID 
TEXT 



ID=nnn , TEXT=text [ , LAST=NO ] 
[ YES] 

= one to three digit message number ('NNN' in 'DLZNNNF). 

= message text. Text is a string of parameters enclosed in left 
and right parentheses. Each parameter is either a character 
string enclosed in quotes; or a set of two values, the first 
indicating a length to be reserved for a field to be dynamically 
inserted, and the second the register that will contain the 
address of the field to be inserted (not register Rl or R15). 






(The message number is generated by the macro and need not 
be included in the text.) 

TEXT=('THIS IS \3,R5,' AN EXAMPLE ',8,R4) 



v. 



LAST 



=^'YES' indicates that no further messages exist. This is a 
special message. The contents of the specified register will be 
converted to BCD and stored in the field for each insert field. 



This macro also generates the code to select and format a message. Preceding the 
first call of DLZER, code must be supplied to establish addressability and equates 
must be supplied for 'Rl' and 'R14'. 



INPUT: 'Rl' should contain the message code in binary format. 'R14' must 

contain the address of the routine to process a message once it has 
been located and formatted. 



c 
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DLZDUST 



DLZID 



( 



( 



Operands 



OUTPUT: 'Rl' will contain a pointer to a two byte field containing the length 
of the message. The message directly follows this two byte field. 
The message is formatted as: 

ODLZNNNI 
TEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXT 



This macro is used to build the parameter list for the IPCS Dump Hooks. This 
parameter list is required by the DLZIDUMP macro. 



label 


DLZID 


MOD = mod-name 

,VR=version-number 

,PTF=ptf-number 



This macro is used to provide module identification for all DL/I modules. It sets 
the global, &DLZMOD, which contains the module name, and the global, 
&DLZVR, which contains the version, release, and PTF number. These globals 
can then be used by other macros or referenced by the module itself. 

In addition to the constants generated to include the version/release level of when 
the module was last changed as entered by the caller, another set of constants is 
automatically included for the current version/release number of DL/I. This 
macro contains a Base Code Indicator which identifies who last assembled or 
updated the module. 



label 1-8 character label (mod-name) 

mod-name Name of module, If omitted, the present CSECT name is used. 

This name appears in an 8-byte character constant. 



version-number 



1-3 digit version/release number. If omitted, this field is set to 
zeros. Zeros are concatenated to the number specified to 
insure three digits. This field is divided into three 1-byte 
character constants. 



DLZIDUMP 



ptf -number 1 -digit number of the latest PTF applied. If omitted, this field 

appears as a 1-byte character constant. 



This macro is used to call the IDUMP facility to provide a dump in the format 
acceptable for analysis by IPCS Service Routines. If the conditions for the dump 
are satisfied, the IDUMP macro is executed. If IDUMP has not been activated, the 
alternate dump path is taken. 
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DLZIPOST 



DLZIWAIT 



DLZTRCAL 



DLZREL 



DLZTRPRM 



DLZMPCPT 



DLZTWAB 



DLZXTAB 



DLZXCB1 



This macro is used by DL/I to post ECBs in an online environment. 

There are no operands. Register 2 must contain the address of the ECB to be 
posted. Bit of byte 2 is set on. 



This macro is used by DL/I to communicate with an IWAIT routine (DLZIWAIT) 
to wait until an ECB is unposted. 

_J Hiere-areTio-t)perands7- , ft 

the address of the ECB that is to be waited for. The caller must have provided a 
USING SCD,15. Registers 14 and 1.5 are used to branch to the DLZIWAIT 
routine. 



This macro is used by action modules to invoke the tracing facility. Refer to DL/I 
DOS /VS Diagnostic Guide for a description of this macro. 



This macro defines a macro variable, &DLZVER, and sets it to indicate the current 
version of DL/I. 



This macro is called by the DLZTRACE macro to parse parameter lists. It is 
similar to the DLZXPARM macro of DBDGEN (see "DLZXPARM Mafro" in 
Chapter 6). In addition to the interface described for DLZXPARM, the length of 
each parameter list member is passed to the caller in the GBLA fields $PLEN(25). 



The master partition controller (MCP) partition table is used to pass control 
information when processing batch partition application programs under MPS 
(Multiple Partition Support). The MPC partition table resides in the transaction 
work area. 



This macro provides the mapping for the BPC batch partition control information 
for the DL/I task termination routine under MPS (Multiple Partition Support). 
This information resides in the BPC's task transaction work area. 



This macro provides the mapping for the XECBTAB macro DEFINE, DELETE, 
and CHECK options under MPS (Multiple Partition Support). 



This macro maps the DLZXCBnl and the data that follows it. It is used to check 
data under MPS (Multiple Partition Support). 






4" 



o 
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DLZTSQE 



This macro maps the entries in the CICS/VS temporary storage queue used by 
MPS Restart which contain combined checkpoint IDs for MPS batch jobs. 



Macros Used to Create DSECTS for DL/I System Control Blocks 

The following macros are used to generate DSECTS for the DL/I control blocks: 

DLZBFFR 

DLZBFPL 

DLZDDIR 

DLZIDLI 

DLZPDIR 

DLZPPST 

DLZPSIL 

DLZPST 

DLZSCD. 

Macros used only by utilities to generate DSECTs: 

DLZCKPT 

DLZDTF 

DLZIDBD 

DLZRECO 

DLZUCHDR 

DLZUCOLD 

DLZUCREC 

DLZUCUMC 

DLZUDHDR 

DLZURGUF 

DLZURHDR 

DLZUSTAT 

DLZTRENT. 

Miscellaneous macros: 

DLZDLIST Creates parameter list for DLZIDUMP macro 

DLZDLP Log record DSECTs and declarations 

DLZHDSO Work area for DLZDHDSO 

DLZIDUMP IPCS dump hook macro 

DLZQUATE Register equates 

DLZSBIF Work area for DLZDBHOO 

DLZUMSG Messages for utilities 

DLZWA Work area used by DLZDLDOO 

DLZXMTWA Work area used by DLZDXMTO. 



DL/I Queuing Facility Macros 



Four macros are available to request processing of a specific function by the 
queuing f acuity module (DLZQUEFO). The functions that can be requested and 
the macros that can be used are: 



C) 
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Formats 



Operands 



Function Requested 

Enqueue 
Verify 
Dequeue 
Purge 



Macro Used 

DLZENQ 

DLZVER 

DLZDEQ 

DLZPUR 



The functions are described in Section 3 of this manual. The format of each macro 
and the description of the operands is as follows: 



DLZENQ [ PST=r 1/ ] [ , LEV= {RO I UPD I EXC} ] [ , ID=r 2 ] [ , FLAG=x ' hh ' ] 



DLZVER [PST=r1] [,LEV={RO|UPD|EXC}] [ f ID=r2] [ ,.FLAG=x ' hh ■ ] 
DLZDEQ [ PST=r 1 ] [ , LEV= {RO I UPD I EXC} ] [ , ID=r 2 ] [ , FLAG=x • hh ■ ] 
DLZPUR [ PST=r 4 ] [ , FLAG=x ' hh ■ ] 



PST=rl 



specifies the symbolic (or absolute) name of a register 
containing the address of the PST. It this operand is 
omitted, register one is assumed. 



LEV={RO | UPD | EXC} specifies the level involved; RO = read only, UPD = 

update, and EXC = exclusive. If omitted, it is assumed 
the PSTQLEV field in the PST is set with the proper 
code. 



ID=r2 



FLAG=x'hh' 



specifies the symbolic (or absolute) name of a register 
containing the address of the seven byte field containing 
the resource ID. If omitted, it is assumed the address is 
stored in the PSTWRK2 field in the PST. 

specifies the byte value that is 'OR'ed into the return 
code for those tasks currently waiting for the resource. 



DL/I Documentation Aid Macros 



DLZDLBP 



DLZDLBD 



DLZDATAB 



Creates (PREP) the PL/I PSB Documentation Aid access module. 



Creates (PREP) the DL/I DBD Documentation Aid access module. 



Acquires public DBSPACE name DLIDBDDB and creates the following DL/I DA 
SQL/DS tables for storing the Data Base Description (DBD) data: 

DBDBASICDATA 

DBDACCESSDATA 

DBDSEGMENTDATA 

DBDLCHILDDATA 

DBDFIELDDATA 



v> 



v.- 



x^j* 



V 
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C 



DLZDANDX 



DLZDARW 



DLZEXDF 



It also acquires public DBSPACE name DLIPSBDB and creates the following 
DL/I DA SQL/DS tables for storing the Program Specification Blocks (PSB) data: 

PSBBASICDATA 
PSBPCBDATA 
PSBSEGMENTDATA 
PSBFIELDDATA 



Creates the DL/I Documentation Aid SQL/DS table indexes. 



Dataloads the DL/I Documentation Aid ISQL Routines in the Routine table. 



Creates (PREP) the Extract Defines access module. 
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\.> 
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Index 



( 



C 



ABC builder 

DLZDLBDP 3-108 
ABENDs-DLZURGSO 3-111 
abnormal system termination 3-23 
abnormal task termination dump entry 3-23 
abnormal task termination I/O check entry 3-23 
abnormal task termination 

dump entry (see DLZODP06) 

I/O check entry (see DLZODP07) 
ACB builder 

DLZDLBLO 3-108 

DLZDLBL1 3-108 

DLZDLBL2 3-108 

DLZDLBL3 3-108 

DLZDLBPP 3-108 
ACB creation and maintenance (see DLZUACBO) 
ACB extension 5-13 
ACB utility 4-11 
ACBXT - ACB extension 5-13 
ACCESS macro 7-32 
accumulation header record 5-213 
accumulation record 5-213 
ACT (application control table) 3-15 

format of 3-16 
ACT r partial reorganization action table 5-17 
action build table (see DLZPRABC) 
application control table (ACT) 

format of 3-16 
application 

control blocks load and relocate (DLZBLM0) 3-6 

control table (ACT) 3-15 

program control (DLZPCC00) 3-5 

program scheduling record 5-214 

program termination record 5-214 
ARG0 - HLPI ARG0 parameters 5-19 
attach logger 3-18 



C 



backout utility (see DLZB ACK0) 
batch/MPS EXEC interface (see DLZEIPB1) 
batch/MPS FLD storage manager (see DLZEIPB0) 
batch 

initialization (see DLZRR00) 

partition 5-1 

partition controller (see DLZBPC00) 

system 1-1 
BFFR - buff er prefix 5-22 
BFPL - buffer pool control block prefix 5-25 
blocks and tables 

DLZDDLE0 3-34 

DLZEXDFP 3-119 

DLZUACBO 3-104 

DLZURDB0 3-74 

DLZURGL0 3-85 
BPC (see DLZBPC00) 
buffer handler functions and required fields 
(DLZDBH00) 3-48 
buffer pool control blocks 5-11 
buffer handler (see DLZDBH00) 



pool control block prefix (BFPL) 5-25 
prefix (BFFR) 5-22 



call analyzer (see DLZDLA00) 
call analyzer 

description 3-26 
checkpoint log record 5-214 
checkpoint record 5-215 
CICS/VS journal logger 

description 3-56 

(seeDLZRDBLl) 
COBOL preinitialization module (DLZBPJRA) 3-8 
COM - common area 5-27 
command codes affecting retrieval 3-39 
common free storage (see DLZODPll) 
common free storage description 3-24 
common get storage (see DLZODP10) 
common get storage description 3-23 
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online 5-7 
control blocks (see DSECT) 
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DLZPRABC 3-87 
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base recovery utilities 3-70 
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DBD directory 5-81 
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XDFLD macro 7-32 
DBPCB-program communication block 5-40 
DBT - data base table 5-42 
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delete work space prefix 3-31, 5-222 
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DLZBLKLD macro 7-44 
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description 3-63 
DLZBPJRA-COBOL preinitialization module 3-8 
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DLZCAT macro 7-45 
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DLZCKDDM macro 7-27 
DLZCKOPT macro 7-41 
DLZCPY10 - field level sensitivity copy 3-61 
DLZCP100 - batch control program 
initialization 3-7 
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DLZDANDX macro 7-53 
DLZDARTN macro 7-53 
DLZD AT AB macro 7-52 
DLZDBHOO - DB buffer handler 
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DLZDBLM0 - control block load and relocate 3-6 
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description 3-32 
DLZDEIPO0 - online EXEC interface 

description 3-102 

introduction 1-8 
DLZDEVSI macro 7-28 
DLZDHDSO - HD space management 

description 3-40 
DLZDLA00 - call analyzer 

description 3-26 
DLZDLBD macro 7-52 
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DLZDLBDP - ABC builder 3-108 
DLZDLBLO - ACB builder 3-108 
DLZDLBL1 - ACB builder 3-108 
DLZDLBL2 - ACB builder 3-108 
DLZDLBL3 - ACB builder 3-108 
DLZDLBP macro 7-52 
DLZDLBPP-ACB builder 3-108 
DLZDLD00 - delete/replace 

description 3-30 
DLZDLIST macro 7-49 
DLZDLOC0 - open/close 

description 3-28 
DLZDLR00 - retrieve 

description 3-37 
DLZDPSB0 - utility PSB builder 3-109 
DLZDSEH0 - workfile generator 

description 3-111 
DLZDVCE macro 7-46 
DLZDXMT0 - index maintenance 

description 3-35 
DLZEIPB0 - batch/MPS interface initialization 

description 3-99 

introduction 1-8 
DLZEIPB1 - batch/MPS EXEC interface 

description 3-100 

introduction 1-8 
DLZER macro 7-48 

DLZERMSG - online message writer 3-24 
DLZEXDF macro 7-53 
DLZEXDFM-Extract Define utility 

error message handler 3-122 

general flow 3-120 
DLZEXDFP-Extract Define Utility 3-118 
DLZFDTP0 - DL/I formatted task dump program 3-25 
DLZFSDP0 - DL/I formatted system dump 

description 3-24 
DLZFTDP0 - DL/I formatted task dump 

description 3-25 
DLZHIERS macro 7-28 
DLZID macro 7-49 
DLZIDUMP macro 7-49 
DLZIPOST macro 7-50 
DLZIWAIT - DL/I WATT 3-12 
DLZIWAIT macro 7-50 
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description 3-9 

DLZLIPLI - PL/I language interface 
description 3-9 

DLZLI000 - language interface 3-8 
DLZLOGP0 - log print utility 

description 3-79 
DLZLPCC0 - control statement processor 
description 3-79 
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DLZMABND - MPS batch ABEND 3-67 
DLZMMSG - MPS batch message writer 3-68 
DLZMPCPT 7-50 
DLZMPC00 - master partition controller 
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DLZMPRH - MPS batch program request handler 3-66 
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DLZMP100 - MPS batch 

description 3-64 
DLZMSTP0 - stop MPS transaction 

description 3-69 
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DLZMTERM - MPS batch termination 3-65 
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DLZODP01 - task termination 3-21 
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DLZODP03 - abnormal system termination 3-23 
DLZODP04 - PSB scheduling start-of-task 
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description 3-14 
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description 3-87 
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description 3-87 
DLZPRCT1 - PARTI control 

description 3-86 
DLZPRCT2 - PART2 control 

description 3-90 
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description 3-88 
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description 3-95 
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description 3-98 
DLZPRHBO - program request handler 3-10 
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description 3-91 
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description 3-89 
DLZPRREP - PARTI report writer 

description 3-89 
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description 3-91 
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description 3-93 
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description 3-96 
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description 3-94 
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description 3-94 
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description 3-57 
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description 3-52 
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description 3-56 
DLZREL macro 7-50 
DLZRRA0Q - user parameter analysis 3-3 
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DLZSEGPT macro 7-29 
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DLZSOURS macro 7-30 
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description 3-13 

DLZSTRO0 - online FLD storage manager 
description 3-13 

DLZSTTL - run and buffer statistics 
description 3-117 
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description 3-76 
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DLZXTAB macro 7-50 
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directory 3-17 
names 3-17 
DMB directory (DDIR) 5-44 
DMB prefix (DMB) 5-51 
documentation aid macros, DL/I 7-52 
DLZDANDX 7-53 
DLZDARTN 7-53 
DLZDATAB 7-52 
DLZDLBD 7-52 
DLZDLBP 7-52 
DLZEXDF 7-53 
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DLZBFPL 5-25 
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DLZPATH 5-110 
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FERT 5-73 

FILECB 5-66 
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MPCPT 5-106 

MPCSPART 5^109 

PDCA 5-113 

PSB 5-119 
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EIPL - EXEC interface program parameter list 5-60 
enqueue and verify function 3-58 
enqueue/dequeue control block relationship 3-59 
error codes and handling 

DLZURGLO 3-85 

DLZURGPO 3-116 

DLZURGSO 3-111 

DLZURGUO 3-84 

DLZURG10 3-115 

DLZURPRO 3-110 

DLZURULO 3-81 
error message writer (see DLZPRERR) 
Extract Define Utility 3-118 
Extract Define utility, introduction 1-8 
Extract Define Utility 

error message handler 3-122 

general flow 3-120 
Extract Define work control block 5-62 
EXWCB-Extract Define word control block 5-62 
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facility modules, DL/I 1-4, 3-26, 4-4 
facility modules 

descriptions . 3-22 
facility relationships, DL/I 1-7 
FCB - file control block 5-66 
FDB - field description block 5-68 
FER - field exit routine interface list 5-71 
FERT - field exit routine table 5-73 
field description block 5-68 
field exit routine interface list 5-7 1 
field exit routine table 5-73 
field level description 5-74 
field level sensitivity 3-61 
FIELD macro 7-31 
field sensitivity block 5-76 
file open record 5-223 
FINISH macro 7-32 

(see FLD - field level descriptor) 
FLD - field level description 5-74 
formatted control block program, 
DL/I (DLZCBDPO) 3-25 
FSB - field sensitivity block 5-76 
function codes 5-91 
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DBD output 7-32 
DMB 5-8 
PSB 5-10 



HD DB reload (see DLZURGLO) 
HD DB unload (see DLZURGUO) 
HD space management (see DLZDHDSO) 
HD space management 

description 3-40 
HDAM randomizing table (DACS) 5-39 
HDAM/HIDAM secondary index suppression table 

(XMPRM) 5-209 
header record (input) 5-224 
header record (output) 5-224 
high level program interface parameter list 5-79 
HISAM reorganized format, sample description 3-81 
HLPI interface module 1-8 

Batch/MPS EXEC initialization (see DLZEIPB0) 

Batch/MPS EXEC interface (see DLZEIPB1) 

introduction 1-8 

online EXEC interface (see DLZEIPO0) 
HLPIL - high level program interface 
parameter list 5-79 
HS DB unload (see DLZURULO) 
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IDBD - DBD directory 5-81 
image dump utility (see DLZUDMP0) 
index maintenance module (see DLZDXMT0) 
index maintenance work area 5-225 
index maintenance 
description 3-35 
initialize PSBs 3-18 
interfaces 
DLZCPY10 3-61 
DLZDBH00 3-48 
DLZDDLE0 3-34 
DLZDLBL0 3-108 
DLZDLBL3 3-108 
DLZDLD00 3-31 
DLZDSEH0 3-112 
DLZEIPB0 3-99 
DLZEIPB1 3-101 
DLZEIPO0 3-103 
DLZEXDFP 3-119 
DLZPRABC 3-87 
DLZPRCT1 3-86 
DLZPRCT2 3-90 
DLZPRDBD 3-88 
DLZPRDLI 3-95 
DLZPRPAR 3-91 
DLZPRPSB 3-89 
DLZPRREP 3-89 
DLZPRSCC 3-91 
DLZPRSTC 3-93 
DLZPRSTW 3-96 
DLZPRUPD 3-92 
DLZPRURC 3-94 
DLZPRWFM 3-94 
DLZSTTL 3-117 
DLZUACB0 3-104 
DLZURGLO 3-85 
DLZURGM0 3-116 
DLZURGPO 3-115 
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IWAIT routine 3-21 
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language interface 1-2 
language interface modules 3-20 

COBOL language interface (see DLZLICBL) 

PL/I language interface (see DLZLIPLI) 
LCHILD macro 7-32 

LECB (see low-level code/continuity check) 
LEV - level table entry 5-101 
level table entry (LEV) 5-101 
list control block 5-226 
LLC/CC 7-2 

HIPO diagrams 7-7 
load action modules 3-17 
load/insert (see DLZDDLEO) 
load/insert 

description 3-32 
local PSB scheduling 3-19 
log print utility (see DLZLOGP0) 
logger (see DLZRDBLO) 
logging in the online system 3-55 
logical relationship utilities 3-109, 4-12 
logical relationship utilities 

description 3-89 

introduction 1-8 
low-level code/continuity check 7-2 
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flow of control 7-2 
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DL/I queuing facility 7-51 

PSBGEN 7-41 
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maintenance support-DtZDLROO 3-39 
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execution control block 7-4 
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language considerations 7-5 

register usage 7-6 

save areas 7-6 
module layout-DLZDLROO 3-39 
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MPC (see DLZMPC00) 
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MPS batch (see DLZMPI00) 

ABEND (DLZMABND) 3-67 

description 3-64 

initialization (DLZMINIT) 3-64 

introduction 1-8 

message writer (DLZMMSG) 3-68 

MPS (multiple partition support) 1-8 

program request handler (DLZMPRH) 3-66 
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MPS control modules 3-61, 4-7 
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online FLD storage manager (see DLZSTRO0) 
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online processor 

description 3-14 

introduction 1-4 
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open/close (see DLZDLOC0) 
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parameter analysis (see DLZPRPAR) 
PARM field, description of 3-4 
partial data base reorganization utilities 3-86 
partition specification table (PST) 5-131 
PARTI cleanup (see DLZPRCLN) 
PARTI control (see DLZPRCT1) 
PARTI report writer (see DLZPRREP) 
PART2 control (see DLZPRCT2) 
PATH - PATH header control block 5-110 
PCB - program communication block 5-111 
PCB dope vector table (DPPCB) 5-53 
PCB macro 7-41 
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PDIR - PSB directory 5-114 
physical segment description block (PSDB) 5-125 
PL/I language interface description 
(DLZLIPLI) 3-9 
PPST-PST prefix 5-116 
prefix resolution (see DLZURG10) 
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program communication block 5-40 
program communication block (PCB) 5-11 1 
program request handler 3-20 
program request handler (DLZPRHBO) 3-10 
program specification block (PSB) 5-9 
PSB (program specification block) 5-9 
PSB directory (PDIR) 5-114 
PSB generation 7-39 
control block output 7-42 

DBPCB 7-42 

DBREFTAB entry 7-43 

FLS table 7-43 

FSB list entry 7-43 

PSB-prefix 7-42 

SEGTAB entry 7-42 
PSB initialization 3-19 
PSB prefix (PSB) 5-119 
PSB scheduling start-of-task record (see 
DLZODP04) 

PSB scheduling start-of-task record routine 3-23 
PSB segment intent list (PSIL) 5-129 
PSB source generation (see DLZPRPSB) 
PSB SQL/DS I/O area 5-121 
PSB-PSB prefix 5-119 
PSBGEN 
macro 7-41 

macro calling sequence 7-39 
macro descriptions 7-39 

DLZALPHA macro 7-41 

DLZCKOPT macro 7-41 

DLZPCBPD macro 7-41 

PCB macro 7-41 

PSBGEN macro 7-41 

SENFLD macro 7-41 

SENSEG macro 7-41 

VIRFLD macro 7-41 
PSBSQLIO - PSB SQL/DS I/O area 5-121 
PSDB - physical segment description block 5-125 
PSIL - PSB segment intent list 5-129 
PST - partition specification table 5-131 
PST prefix (PPST) 5-116 
purge function 3-59 
purge temporary storage transaction 
(DLZMPURO) 3-69 



queueing facility work area 5-148 
queuing facility (see DLZQUEFO) 
queuing facility 

description 3-57 
QWA - queuing facility work area 5-148 
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RDB - resource descriptor block 5-149 
record and message formats-DLZBACKO 3-71 
record layouts 5-211 
record/block structures 5-212 
recovery utilities, data base 4-8 
recovery utilities 

descriptions 3-70 

introduction 1-8 
region control primary interface (DLZRRC10) 3-2 
remote control primary interface (DLZRRC10) 3-2 
remote interface block (RIB) 5-152 



remote partition specification table (RPST) 5-156 
remote program communication block (RPCB) 5-154 
remote program specification block directory 

(RPDIR) 5-155 
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reorganization utilities 
descriptions 3-80 
introduction 1-8 
resource allocation, system 3-22 
resource descriptor block (RDB) 5-149 
resource request descriptor (RRD) 5-158 
retrieve (see DLZDLR00) 
retrieve, description 3-37 
RGT - range table 5-150 
RIB -remote interface block 5-152 
RPCB - remote program communication block 5-154 
RPDIR - remote program specification block 

directory 5-155 
RPST - remote PST 5-156 
RRD - resource request descriptor 5-158 
run and buff er statistics 3-117 
run and buffer statistics (see DLZSTTL) 



SBIF - subpool information table 5-160 

scan (see DLZURGS0) 

scan control table (see DLZPRSCC) 

SCD - system contents directory 5-162 

SCD extension (SCDEXT) 5-171 

SCDEXT - SCD extension 5-171 

scheduling, DL/I 3-18 

SDB - segment description block 5-174 

SEC - secondary list 5-179 

secondary list (SEC) 5-179 

secondary list entry 5-217 

SEGM macro 7-32 

segment description block 5-174 

segment search appendage (SSAP) 5-193 

segment search argument (SS A) 5-191 

segment search argument extension (SSAX) 5-194 

segment table (SGT) 5-185 

SENFLD macro 7-41 

SENSEG macro 7-41 

SGT - segment table 5-185 

short segment table 5-228 

sort control (see DLZPRSTC) 

sorted list block 5-228 

space management (see DLZDHDS0) 

SQLID - userid control block 5-190 

SSA - segment search argument 5-191 

SSA for GU call by key 5-229 

SSA for GU call by RBA 5-229 

SSA for XMAINT call to the analyzer 5-229 
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